如何在Autolisp中调用延伸命令

bud · 发表于 2004-8-23 20:17:00

各位大侠，请问如何在Autolisp中调用延伸命令!比如要延伸的线为ee，所要连接到的对象是dd请问，如何延伸?
我用(command "extend" dd "" ee "")不行，提示说没有延伸方向，如何确定延伸方向呢？望各位高手指教!

alin · 发表于 2004-8-23 20:59:00

(command "extend" dd "" ee "")可以

ZZXXQQ · 发表于 2004-8-24 09:34:00

Must Use (COMMAND "EXTEND" DD "" PT "")

meflying · 发表于 2004-8-24 10:43:00

(command "_.extend" dd "" (cons ee pt) "")

f5612140 · 发表于 2004-8-24 11:23:00

老大,我的经验是extend不可行,fillet可行参考程序:设定距离内,线段延伸或截断[code]
(defun exztempl2 () (setq i 0)
(repeat (sslength ss)
   (setq ename (ssname ss i))
   (setq endata (entget ename))
   (setq enlay (cdr (assoc 8 endata)))
   (setq p1 (cdr (assoc 10 endata)))
   (setq p2 (cdr (assoc 11 endata)))
   (setq j 0)
   (setq dtmin nil)
   (repeat (- (sslength ss) 0)
         (setq eename (ssname ss j))
         (setq eedata (entget eename))
         (setq eenlay (cdr (assoc 8 eedata)))
         (setq p3 (cdr (assoc 10 eedata)))
         (setq p4 (cdr (assoc 11 eedata)))
         (if (and (/= i j) (= enlay eenlay))
  (progn
   (setq px (inters p1 p2 p3 p4))
   (setq px2 (inters p1 p2 p3 p4 nil))    (if (/= px nil)
      (progn
         (setq dt1 (distance p3 px))
         (setq dt2 (distance p4 px))
         (setq dtmin (min dt1 dt2))
         (if (and ( dt1 dt2)
         (command "trim" ename "" p4 "")
         (command "trim" ename "" p3 "")
   )
)
         )
      )
   )    (if (and (= px nil) (/= px2 nil)) ;不平行,有延伸交点
      (progn
         (setq px (inters p1 p2 p3 p4 nil))
         (setq pxx (inters p3 px p1 p2))
         (if (/= pxx nil) ;有延伸交点在P12线上
(progn
   (setq dt1 (distance p3 pxx))
   (setq dt2 (distance p4 pxx))
   (setq dtmin (min dt1 dt2))
   (if (

v3421qhcuva.bmp

如何在Autolisp中调用延伸命令

发表回复

精选推荐

浏览过的版块