要是是方管呢行不行呀

357785513

上次一位兄台给我写了一个圆管对位的程序,

(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)
)

要是是方管呢行不行呀

Andyhon

3. (defun c:tsdRect (/ ss i p1 p)
4.   (if (and (setq ss (ssget '((0 . "LWPOLYLINE"))))
5.            (setq p1 (getpoint "\n指定点: ")))
6.     (repeat (setq i (sslength ss))
7.       (setq p (cadr (acet-ent-geomextents (ssname ss (setq i (1- i))))))
8.       (command "_.line" "_non" p "_non" p1 "")
9.     )
10.   )
11.   (princ)
12. )

(defun c:tsdRect (/ ss i p1 p)   (if (and (setq ss (ssget '((0 . "LWPOLYLINE"))))            (setq p1 (getpoint "\n指定点: ")))     (repeat (setq i (sslength ss))       (setq p (cadr (acet-ent-geomextents (ssname ss (setq i (1- i))))))       (command "_.line" "_non" p "_non" p1 "")     )   )   (princ) )

357785513

大可.真不错.真行,服你了.

不过我想到了一个问题.假如我的CAD同时开六张图.我在第一个文件里用这个特殊的程序画了一下对位线,然后其它五个DWG文件也在同一坐标点上出现了我们在第一个DWG文件里所画的对位线.能不能这样呀.如果能这样的话,那我们拷贝不省了.而且坐标不用去怀疑,

357785513

大可.真不错.真行,服你了.

不过我想到了一个问题.假如我的CAD同时开六张图.我在第一个文件里用这个特殊的程序画了一下对位线,然后其它五个DWG文件也在同一坐标点上出现了我们在第一个DWG文件里所画的对位线.能不能这样呀.如果能这样的话,那我们拷贝不省了.而且坐标不用去怀疑,

Andyhon

AutoLisp 并不具备 多/跨 文件处理能力.....

试试以下的版块
ObjectARX/VC++ 编程技术
VB.NET/C# 与 ObjectARX 编程技术
VBA/VB/ActiveX/API 编程技术