辣鸡砖家 发表于 2023-11-23 11:21:31

如何使用这个代码？

想找一个可以对图源对象增加自定义特性的方法，水平太菜没搜到，在其他网站搜索到了一个方法，但不知道如何使用，大家可以给提示一下吗？
目前水平是只知道复制代码到文本文件然后改个lsp后缀:lol

源网址是https://blog.csdn.net/wenming111/article/details/90602203

自贡黄明儒 发表于 2023-11-23 11:47:29

lisp本论坛多呀
;;9 删除对象扩展数据
(defun MyD:Xdata (/ E N SS)
(setq ss (ssget "X" (list (list -3 (list "*")))))
(if ss
    (repeat (setq n (sslength ss))
      (setq e (ssname ss (setq n (1- n))))
      (entmod
        (list (cons -1 e)
              (cons -3 (mapcar 'list (mapcar 'car (cdr (assoc -3 (entget e '("*")))))))
        )
      )
    )
)
)

jun353835273 发表于 2023-11-23 11:49:31

(setq ename (car (entsel)))
(setq getdata (entget ename   (list "*")))
(cdr (cadadr (assoc -3getdata)))
lisp-3 组码也能更新，不用这个c#的也行

paulpipi 发表于 2023-11-23 20:44:44

一起来学习了:D-

wangsr 发表于 2023-11-24 18:11:50

学习了谢谢分享

辣鸡砖家 发表于 2023-11-27 11:12:34

自贡黄明儒 发表于 2023-11-23 11:47
lisp本论坛多呀
;;9 删除对象扩展数据
(defun MyD:Xdata (/ E N SS)


谢谢:handshake，我试试

辣鸡砖家 发表于 2023-11-27 11:13:37

jun353835273 发表于 2023-11-23 11:49
(setq ename (car (entsel)))
(setq getdata (entget ename   (list "*")))
(cdr (cadadr (assoc -3get ...

您这个我还得理解消化一下，谢谢:handshake
页: [1]
查看完整版本: 如何使用这个代码？