Entmod问题
大家好，我编写了一个简短的LISP代码来执行MATCHPROP命令的一些任务。
以下是函数：
(defun MatchProp (oldobj newobj key / oldobjlist newobjlist oldassoc newassoc)
(setq oldobjlist (entget oldobj))
(setq newobjlist (entget newobj))
(setq newassoc (assoc key newobjlist))
(if (setq oldassoc (assoc key oldobjlist))
(progn
(if newassoc
(progn
(setq newobjlist (subst oldassoc newassoc newobjlist))
)
(progn; it is bylayer
(setq newobjlist (append newobjlist (list oldassoc)))
)
)
)
(progn; set it to bylayer
(if newassoc
(progn
(setq newobjlist (vl-remove newassoc newobjlist))
)
)
)
)
(entmod newobjlist)
)
这是一个例子，展示了它的名称：
(defun c:go()
(setq oldobj (car (entsel)))
(setq newobj (car (entsel)))
(MatchProp oldobj newobj 8); layer
(MatchProp oldobj newobj 62); color
(MatchProp oldobj newobj 420); color RGB
(MatchProp oldobj newobj 430); color name
(MatchProp oldobj newobj 6); linetype
(MatchProp oldobj newobj 48); linetype scale
(MatchProp oldobj newobj 370); lineweight
(MatchProp oldobj newobj 440); tranparency
(MatchProp oldobj newobj 390); plot style
)
当我选择具有命名颜色、线型等的对象（不是Bylayer）时效果很好，但反之亦然。
有谁能检查一下，看看我的程序或entmod函数有什么问题吗？
提前感谢：）。 这很奇怪。代码的编写方式应该是可行的，但事实并非如此。
让我进一步调查我的朋友 实体列表应具有相同数量的元素：
(defun MatchProp (oldobj newobj key / oldobjlist newobjlist oldassoc newassoc)
(setq oldobjlist (entget oldobj))
(setq newobjlist (entget newobj))
(setq newassoc (assoc key newobjlist))
(if (setq oldassoc (assoc key oldobjlist))
(progn
(if newassoc
(progn
(setq newobjlist (subst oldassoc newassoc newobjlist))
)
(progn; it is bylayer
(setq newobjlist (append newobjlist (list oldassoc)))
)
)
)
(progn; set it to bylayer
(if newassoc
(progn
(setq newobjlist (subst (cons key 256) newassoc newobjlist))
)
)
)
)
(entmod newobjlist)
)
还是更多？使用append-entmod可以毫无问题地工作。给出了什么。
据我所知，我上面发布的代码片段可以处理颜色和线型，我想其他东西还需要额外的代码。 非常感谢pBe，
你是对的。我使用您的报价，以及更改命令的属性选项来更改其他属性。
当然，这不是一个好的解决方案，只是好的，而没有其他更好的方法。
(command "_.CHANGE" obj "" "_Properties" 'WhichProperty "Bylayer" "")
再次感谢你花时间解决我的问题。 您将附加一个零：
(setq newobjlist (append newobjlist (list oldassoc)))
对于线型，应为：
(setq newobjlist (append newobjlist (list (cons 6 "BYLAYER"))))
每个组都有自己的默认值-大卫
很好，大卫 David和pBe，谢谢你们的帮助。
根据我们目前对entmod函数的研究，我列出了3行代码。
将颜色设置为“BYLAYER”：
(setq newobjlist (subst '(62 . 256) newassoc newobjlist)); color of BYLAYER
将线型设置为“BYLAYER”：
(setq newobjlist (subst '(6 . "BYLAYER") newassoc newobjlist)); linetype of BYLAYER
将线型比例设置为1：
(setq newobjlist (subst '(48 . 1) newassoc newobjlist)); linetype scale of 1 将透明度设置为“BYLAYER”：
(setq newobjlist (subst '(440 . "BYLAYER") newassoc newobjlist)); transparency of BYLAYER 将线宽设置为“BYLAYER”：
(setq newobjlist (subst '(370 . -1) newassoc newobjlist)); lineweight of BYLAYER
页:
[1]
2