357785513 发表于 2008-12-16 23:09:00

要是是方管呢行不行呀

<p>上次一位兄台给我写了一个圆管对位的程序,</p><p>(defun c:tsd (/ ss i p1 p)<br/>&nbsp; (if (and (setq ss (ssget '((0 . "CIRCLE"))))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq p1 (getpoint "\n指定点: ")))<br/>&nbsp;&nbsp;&nbsp; (repeat (setq i (sslength ss))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq p (cdr (assoc 10 (entget (ssname ss (setq i (1- i)))))))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "_.line" "_non" p "_non" p1 "")<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (princ)<br/>)</p><p>要是是方管呢行不行呀</p>

Andyhon 发表于 2008-12-17 08:34:00


(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 发表于 2008-12-18 23:08:00

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

357785513 发表于 2008-12-18 23:11:00

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

Andyhon 发表于 2008-12-19 08:58:00

<p>AutoLisp 并不具备 多/跨 文件处理能力.....</p><p>试试以下的版块<br/>ObjectARX/VC++ 编程技术<br/>VB.NET/C# 与 ObjectARX 编程技术<br/>VBA/VB/ActiveX/API 编程技术</p>
页: [1]
查看完整版本: 要是是方管呢行不行呀