按"组码对"表,修改对象属性

Lispboy · 发表于 2013-6-5 19:18:17

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

游客，本帖隐藏的内容需要积分高于 50 才可浏览，您当前积分为 0

演示：下面程序修改选取实体的颜色和图层

(defun c:tt()
(if (and (setq e (car (entsel "\n选取实体<退出>:")))
(setq clr (getint "\n颜色号<退出>:"))
(/= "" (setq lyr (getstring "\n图层<退出>:")))
)
(progn
(XD::OBJ:EntMod e (list (cons 62 clr)(cons 8 lyr)))
)
)
(princ)
)

Free-Lancer · 发表于 2013-6-5 19:33:58

一个实体修改几个属性就entmod几次来自: Android客户端

Free-Lancer · 发表于 2013-6-6 14:45:34

如果是点对的,我这样用[pcode=lisp,true]
(defun modent (el lst)
  (mapcar '(lambda (l)
      (setq el (subst l (assoc (car l) el) el))
   )
   el
  )
  (entmod el)
)[/pcode]

1993063 · 发表于 2013-6-23 04:23:03

顶面更健康

lou1981 · 发表于 2013-9-26 14:30:14

这个能不能用VBA来调用

wzg356 · 发表于 2014-10-19 15:10:42

llisp知识的海洋

jinbin2008a · 发表于 2014-11-22 13:13:32

:@，小学生，看不懂，想学学

kkt123 · 发表于 2015-2-15 08:23:46

顶面更健康:L:L

浮世小半生 · 发表于 2015-4-25 01:17:11

很给力{:soso_e179:}

海盗曹 · 发表于 2015-4-29 12:26:53

都是好代码啊，学习一下

jetcan@21cn.com · 发表于 2015-4-30 20:19:58

想学习，但看不到

jetcan@21cn.com · 发表于 2015-4-30 20:20:39

想学习，但看不到，自己还要努力

laiz3000 · 发表于 2015-5-14 00:52:17

还没够分数去看呀:Q

vlisp2012 · 发表于 2015-5-16 12:16:19

看不到啊。攒分！

czcxxx_01 · 发表于 2015-9-5 12:12:37

顶面更健康{:soso_e102:}

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

[其他] 按"组码对"表,修改对象属性

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

本帖被以下淘专辑推荐: