皇上快溜 发表于 2016-9-13 14:43:53

本帖最后由 皇上快溜 于 2016-9-13 14:49 编辑

fan_zh 发表于 2016-9-13 14:30 static/image/common/back.gif
bo 是要以点来响应的 变量S不是点

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

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

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

fan_zh 发表于 2016-9-13 15:21:34

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

皇上快溜 发表于 2016-9-13 15:41:03

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

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

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

xyp1964 发表于 2016-9-14 23:16:06

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

皇上快溜 发表于 2016-9-14 23:21:39

谢谢xyp1964
页: 1 [2]
查看完整版本: 一个边界问题，想求教大家