如何在Autolisp中调用延伸命令

bud

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

alin

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

ZZXXQQ

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

meflying

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

f5612140

meflying发表于2004-8-24 10:43:00(command \"_.extend\" dd \"\" (cons ee pt) \"\")

老大,我的经验是extend不可行,fillet可行参考程序:设定距离内,线段延伸或截断

2. (defun exztempl2 ()    (setq i 0)
3.    (repeat (sslength ss)
4.        (setq ename (ssname ss i))
5.        (setq endata (entget ename))
6.        (setq enlay (cdr (assoc 8 endata)))
7.        (setq p1 (cdr (assoc 10 endata)))
8.        (setq p2 (cdr (assoc 11 endata)))
9.        (setq j 0)
10.        (setq dtmin nil)
11.        (repeat (- (sslength ss) 0)
12.            (setq eename (ssname ss j))
13.            (setq eedata (entget eename))
14.            (setq eenlay (cdr (assoc 8 eedata)))
15.            (setq p3 (cdr (assoc 10 eedata)))
16.            (setq p4 (cdr (assoc 11 eedata)))
17.            (if (and (/= i j) (= enlay eenlay))
18.   (progn
19.      (setq px (inters p1 p2 p3 p4))
20.      (setq px2 (inters p1 p2 p3 p4 nil))     (if (/= px nil)
21.          (progn
22.              (setq dt1 (distance p3 px))
23.              (setq dt2 (distance p4 px))
24.              (setq dtmin (min dt1 dt2))
25.              (if (and (< dtmin dtset) (/= dtmin 0))
26.     (progn
27.        (if (> dt1 dt2)
28.            (command "trim" ename "" p4 "")
29.            (command "trim" ename "" p3 "")
30.        )
31.     )
32.              )
33.          )
34.      )     (if (and (= px nil) (/= px2 nil)) ;不平行,有延伸交点
35.          (progn
36.              (setq px (inters p1 p2 p3 p4 nil))
37.              (setq pxx (inters p3 px p1 p2))
38.              (if (/= pxx nil)    ;有延伸交点在P12线上
39.     (progn
40.        (setq dt1 (distance p3 pxx))
41.        (setq dt2 (distance p4 pxx))
42.        (setq dtmin (min dt1 dt2))
43.        (if (< dtmin dtset)
44.            (progn
45.                (if (< dt1 dt2)
46.       (command "extend" ename "" p3 "")
47.       (command "extend" ename "" p4 "")
48.                )
49.            )
50.        )
51.     )
52.     (progn
53.        (setq dt1 (distance p3 px))
54.        (setq dt2 (distance p4 px))
55.        (setq dtmin (min dt1 dt2))
56.        (if (< dtmin dtset)
57.            (progn
58.                (if (< dt1 dt2)
59.       (command "fillet" ename (cons eename p3))
60.       (command "fillet" ename (cons eename p4))
61.                )
62.            )
63.        )
64.     )
65.              )
66.          )
67.      )
68.   )
69.            )           (setq j (+ j 1))
70.        )
71.        (setq i (+ i 1))   )   (prin1)
72. )
73. (defun c:xxx ()   (setvar "cmdecho" 0)
74.    (setvar "blipmode" 0)
75.    (setq sel (getvar "osmode"))
76.    (setq dfc (getvar "dimlfac"))
77.    (setvar "osmode" 0)
78.    (setvar "filletrad" 0)
79.    (setq cly (getvar "clayer"))
80.    (setq dtset (getreal "\nSetup join distance?"))   (setq ss (ssget))
81.    (setq ss (ssget "p" '((0 . "LINE"))))   (setq pkx (getvar "pickbox"))
82.    (setvar "pickbox" 0)   (if (/= ss nil)
83.        (exztempl2)
84.    )   (setvar "osmode" sel)
85.    (setvar "pickbox" pkx)
86.    (command "layer" "s" cly "")   (prin1)
87. )

(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 (< dtmin dtset) (/= dtmin 0))     (progn        (if (> 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 (< dtmin dtset)            (progn                (if (< dt1 dt2)       (command "extend" ename "" p3 "")       (command "extend" ename "" p4 "")                )            )        )     )     (progn        (setq dt1 (distance p3 px))        (setq dt2 (distance p4 px))        (setq dtmin (min dt1 dt2))        (if (< dtmin dtset)            (progn                (if (< dt1 dt2)       (command "fillet" ename (cons eename p3))       (command "fillet" ename (cons eename p4))                )            )        )     )              )          )      )   )            )           (setq j (+ j 1))        )        (setq i (+ i 1))   )   (prin1) ) (defun c:xxx ()   (setvar "cmdecho" 0)    (setvar "blipmode" 0)    (setq sel (getvar "osmode"))    (setq dfc (getvar "dimlfac"))    (setvar "osmode" 0)    (setvar "filletrad" 0)    (setq cly (getvar "clayer"))    (setq dtset (getreal "\nSetup join distance?"))   (setq ss (ssget))    (setq ss (ssget "p" '((0 . "LINE"))))   (setq pkx (getvar "pickbox"))    (setvar "pickbox" 0)   (if (/= ss nil)        (exztempl2)    )   (setvar "osmode" sel)    (setvar "pickbox" pkx)    (command "layer" "s" cly "")   (prin1) )

meflying

老老大,你的问题是如何延伸,如何确定延伸方向,而我的代码正是解决这个问题的...


其中PT就是需要延伸的一边的端点即可

wjm3

各位请消消火

alin

奇怪！我在2004下用(command "extend" dd "" ee "")真的可以，没有提示说没有延伸方向，自动按正确的方向延伸。是不是还有什么变量设置。

无痕

myflying的说法是对的，必须给出点，要不就有二意性

meflying

无痕发表于2004-8-24 23:50:00myflying的说法是对的，必须给出点，要不就有二意性

如图,如果不给出方向,这样,哪边算正确?