yang686526

要是是方管呢行不行呀
www.dimcax.com
要是是方管呢行不行呀
上次一位兄台给我写了一个圆管对位的程序,
(defun c:tsd (/ ss i p1 p)
(if (and (setq ss (ssget '((0 . "circle"))))
(setq p1 (getpoint "\n指定点: ")))
(repeat (setq i (sslength ss))
(setq p (cdr (assoc 10 (entget (ssname ss (setq i (1- i)))))))
(command "_.line" "_non" p "_non" p1 "")
)
)
(princ)
)
要是是方管呢行不行呀
d
( c:tsdrect ( ss i p1 p)
( ( ( ss ( '((0 . "lwpolyline"))))
( p1 ( "\n指定点: ")))
( ( i ( ss))
( p ( (acet-ent-geomextents ( ss ( i (1- i))))))
( "_.line" "_non" p "_non" p1 "")
)
)
()
)
d
大可.真不错.真行,服你了.
不过我想到了一个问题.假如我的cad同时开六张图.我在第一个文件里用这个特殊的程序画了一下对位线,然后其它五个dwg文件也在同一坐标点上出现了我们在第一个dwg文件里所画的对位线.能不能这样呀.如果能这样的话,那我们拷贝不省了.而且坐标不用去怀疑,
d
大可.真不错.真行,服你了.
不过我想到了一个问题.假如我的cad同时开六张图.我在第一个文件里用这个特殊的程序画了一下对位线,然后其它五个dwg文件也在同一坐标点上出现了我们在第一个dwg文件里所画的对位线.能不能这样呀.如果能这样的话,那我们拷贝不省了.而且坐标不用去怀疑,
d
autolisp 并不具备 多/跨 文件处理能力.....
试试以下的版块
objectarx/vc++ 编程技术
vb.net/c# 与 objectarx 编程技术
vba/vb/activex/api 编程技术
d