如何使用这个代码？

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

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

源网址是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 -3 getdata)))
lisp-3 组码也能更新，不用这个c#的也行

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

一起来学习了

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)

谢谢

，我试试

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

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

您这个我还得理解消化一下，谢谢

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

[提问] 如何使用这个代码？

本帖子中包含更多资源