封闭多段线向内侧偏移150后在新多段线各节点处画直径为100的圆（LISP语言）

包哥 · 发表于 2023-8-4 17:28:13

刚才自己研究了一下，已解决

xj6019 · 发表于 2023-8-4 17:49:26

xj6019 · 发表于 2023-8-4 22:14:37

我也瞎玩一下

(defun C:NM (/ ent newent obj)
(setq ent(car(entsel "\n請拾取"))
obj(vla-Offset (vlax-ename->vla-object  ent) -150)
)
(vla-put-linetype (vlax-ename->vla-object (setq newent(entlast))) "HIDDEN")
(vla-put-color (vlax-ename->vla-object newent) 1)
(mapcar '(lambda(a)
   (entmakex (list '(0 . "circle") (cons 10 a) (cons 40 100)))
   (vla-put-color (vlax-ename->vla-object (entlast)) 6)
   )
(mapcar 'cdr
(vl-remove-if-not '(lambda (x) (= (car x) 10))(entget newent))
)
)
(princ)
)

czb203 · 发表于 2023-8-5 06:55:56

xj6019 发表于 2023-8-4 22:14
我也瞎玩一下
(defun C:NM (/ ent newent obj)
(setq ent(car(entsel "\n請拾取"))

大佬，请教一下为啥我的会提示"错误: 输入的字符串有缺陷"的错误呢？

xj6019 · 发表于 2023-8-5 07:48:32

czb203 发表于 2023-8-5 06:55
大佬，请教一下为啥我的会提示"错误: 输入的字符串有缺陷"的错误呢？

应该是当前文件内没有HIDDEN这个虚线线型，自己在当前文件内添加线型后再试，或者把下面一句删掉再试:
(vla-put-linetype (vlax-ename->vla-object (setq newent(entlast))) "HIDDEN")

czb203 · 发表于 2023-8-5 12:47:48

本帖最后由 czb203 于 2023-8-5 12:53 编辑

xj6019 发表于 2023-8-5 07:48
应该是当前文件内没有HIDDEN这个虚线线型，自己在当前文件内添加线型后再试，或者把下面一句删掉再试:
...

好的，感谢解疑答惑，删除了还是不行哦，有版本要求吗~

xj6019 · 发表于 2023-8-5 13:15:37

czb203 发表于 2023-8-5 12:47
好的，感谢解疑答惑，删除了还是不行哦，有版本要求吗~

那你这么试试,这样应该可以的
(defun C:NM (/ ent newent obj)
(setq ent(car(entsel "\n請拾取"))
obj(vla-Offset (vlax-ename->vla-object  ent) -150)
newent(entlast)
)
;(vla-put-linetype (vlax-ename->vla-object newent) "HIDDEN")
(vla-put-color (vlax-ename->vla-object newent) 1)
(mapcar '(lambda(a)
   (entmakex (list '(0 . "circle") (cons 10 a) (cons 40 100)))
   (vla-put-color (vlax-ename->vla-object (entlast)) 6)
   )
(mapcar 'cdr
(vl-remove-if-not '(lambda (x) (= (car x) 10))(entget newent))
)
)
(princ)
)

czb203 · 发表于 2023-8-5 14:25:48

xj6019 发表于 2023-8-5 13:15
那你这么试试,这样应该可以的
(defun C:NM (/ ent newent obj)
(setq ent(car(entsel "\n請拾取"))

奇怪还是老问题，显示输入的字符串有缺陷

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