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

包哥 发表于 2023-8-4 17:03:50

封闭多段线向内侧偏移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-objectent) -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-objectent) -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請拾取"))


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

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