云线LSP的疑难问题，请大大们帮忙看一下了。谢谢！

hooboxu · 发表于 2014-9-26 22:48:32

本帖最后由 hooboxu 于 2014-9-26 23:38 编辑

代码如下：

;;;;;;矩形修订云线
(defun c:kk(/ x0 y0 x1 y1)
(setvar "cmdecho" 0 )
(setq oldlayer (getvar "clayer"));;加层
(command "_layer" "n" "修订线" "c" "1" "修订线" "p" "n" "修订线" "") ;;加层
(setvar "clayer" "修订线");;加层
(SetQ       p0 (GetPoint "\n 第一角点：") x0(car p0) y0(cadr p0)
      p1 (getcorner p0 "\n 另一角点：") x1(car p1) y1(cadr p1)
      dx (abs (- x0 x1))
      dy (abs (- y0 y1))
)
(Command "rectang" p0 p1)
(if(<= dx dy)
(SetQ al (/ dx 10))
(SetQ al (/ dy 10)))
(Command "revcloud" "a" al al "s" "c" "o" "l" "")
(setvar "clayer" oldlayer)
(setvar "cmdecho" 1)
(prinC)
)

这个是明经里找的，叫达人修改了一下；原作者也不知道是谁，抱歉~
现在情况是这样的，之前这个命令都是好的，中间不会出现矩形框，但现在好像有BUG了，一画云线和矩形线都一起出来了，是不是函数重复了没清理掉还是怎么回事呢？重装过一次CAD好像正常了，但现在又出现了。
还请有经验的LISPER帮忙看看，指点一下。真心谢谢~

lsjj · 发表于 2014-9-26 23:48:21

又是鎖點問題

1993063 · 发表于 2014-9-26 23:56:10

云线也是矩形转化来的，在程序后面加句(entdel ....)试试😊

hooboxu · 发表于 2014-9-27 00:15:41

谢谢楼上回复我去试试，(entdel ....) 点点也要么？

hooboxu · 发表于 2014-9-27 00:21:32

好像没效果

hooboxu · 发表于 2014-9-27 00:22:26

lsjj 发表于 2014-9-26 23:48
又是鎖點問題

请问LSJJ 什么锁点问题呀？

可以再说详细一点吗？谢谢了

阿霸jun · 发表于 2015-4-29 12:59:36

(setvar "delobj" 1)

hooboxu · 发表于 2015-5-5 12:24:28

@阿霸jun
加在最前面吗？

无惢 · 发表于 2020-3-8 12:06:16

替换掉倒数第三行

Qwer1243 · 发表于 2021-2-19 10:42:20

拿走啦谢谢分享

账号		自动登录	找回密码
密码			注册

[讨论] 云线LSP的疑难问题，请大大们帮忙看一下了。谢谢！

本帖子中包含更多资源