一个边界问题，想求教大家

皇上快溜

fan_zh 发表于 2016-9-13 14:30
bo 是要以点来响应的 变量S不是点

另，程序中间选点，只需要在相应位置加入(setq p1 (getpoint))

你好。。
(setq p1 (getpoint))
(command "_.boundary" "" "p1" ""  )这句似乎还差点什么，是不是要在 "_.boundary" ""与 "p1"之间加点什么选项？

cad报：指定下一点或 [圆弧(A)/闭合(C)/半宽(H)/长度(L)/放弃(U)/宽度(W)]:

fan_zh

(command "_.boundary" "" "p1" ""  )
P1 不要加引号

皇上快溜

fan_zh 发表于 2016-9-13 15:21
(command "_.boundary" "" "p1" ""  )
P1 不要加引号

多谢你啊，，，
搞好了，多亏你你醒，要先定义一个点，否则，只会瞎忙。。

有空帮我看看这个好不？
http://bbs.mjtd.com/thread-173339-1-1.html
也是不得要领

xyp1964

2. (defun c:tt ()  (setq kd (getdist "\n宽度:<60>"))
   
3.   (if (= kd nil)
   
4.     (setq kd 60)
   
5.   )
   
6.   (setvar "osmode" 0)
   
7.   (while (setq pt0 (getpoint "\n基准点: "))
   
8.     (setq pt1 (polar pt0 (* pi 0.5) 10))
   
9.     (setq pt2 (polar pt1 (* pi 0) 100))
   
10.     (setq pt3 (polar pt2 (* pi 1.5) kd))
    
11.     (setq pt4 (polar pt3 (* pi 1) 150))
    
12.     (setq pt5 (polar pt4 (* pi 0.5) kd))
    
13.     (command "pline" pt2 pt3 pt4 pt5 "c")
    
14.     (setq s1 (entlast))
    
15.     (bpoly pt0)
    
16.     (command "erase" s1 "")
    
17.   )
    
18.   (princ)
    
19. )

(defun c:tt ()  (setq kd (getdist "\n宽度:<60>"))<br />   (if (= kd nil)<br />     (setq kd 60)<br />   )<br />   (setvar "osmode" 0)<br />   (while (setq pt0 (getpoint "\n基准点: "))<br />     (setq pt1 (polar pt0 (* pi 0.5) 10))<br />     (setq pt2 (polar pt1 (* pi 0) 100))<br />     (setq pt3 (polar pt2 (* pi 1.5) kd))<br />     (setq pt4 (polar pt3 (* pi 1) 150))<br />     (setq pt5 (polar pt4 (* pi 0.5) kd))<br />     (command "pline" pt2 pt3 pt4 pt5 "c")<br />     (setq s1 (entlast))<br />     (bpoly pt0)<br />     (command "erase" s1 "")<br />   )<br />   (princ)<br /> )

皇上快溜

谢谢xyp1964