求改lsp,点中文字后就可以以文字内容建立图层,但颜色总是白色,改随层

sailorcwx · 发表于 2008-5-18 22:17:00

(defun c:changelayer(/ ENT OBJ OBJCOLOR OBJLAYER ss)
(vl-load-com)
(setq ss (cadr (ssgetfirst)))
(if ss
    (setq ent (list (ssname ss 0)))
    (setq ent (entsel "\n选择目标对象: "))
    )
(if ent
    (progn
      (setq obj (vlax-ename->vla-object (car Ent))
     objlayer (vla-get-layer obj)
     objcolor (vla-get-color obj)
     )
      (cond
((= objcolor 256)(setq objcolor "bylayer"))
((= objcolor 0)(setq objcolor "byblock"))
)
      (setvar "CLAYER" objlayer)
      (command "color" objcolor)
      )
    )
(princ)
)

liminnet · 发表于 2008-5-18 22:43:00

提示: 作者被禁止或删除内容自动屏蔽

xyp1964 · 发表于 2008-5-18 22:55:00

有写字＋选择的功夫，还不如直接生成需要的图层！

liminnet · 发表于 2008-5-18 23:10:00

提示: 作者被禁止或删除内容自动屏蔽

狂刀无痕 · 发表于 2008-5-18 23:47:00

有点像绕口令，没看明白．

xyp1964 · 发表于 2008-5-18 23:50:00

试试这个：

xyp1964 · 发表于 2008-5-18 23:53:00

感觉也就是一个“图层更换”的功能

liminnet · 发表于 2008-5-19 09:52:00

提示: 作者被禁止或删除内容自动屏蔽

狂刀无痕 · 发表于 2008-5-19 20:22:00

(DEFUN C:TT ()
(SETQ ENT (ENTGET (CAR (ENTSEL))))
(mapcar '(LAMBDA
(X Y)
(SETQ Y (CDR (ASSOC Y ENT)))
(COND ((= 0 Y) (SETQ Y "BYBLOCK"))
((NOT Y) (SETQ Y "BYLAYER"))
)
(setvar X (VL-PRINC-TO-STRING Y))
)
'("CECOLOR" "CLAYER" "CELTYPE");;颜色，图层，线型
'(62 8 6)
)
)

复制代码

liminnet · 发表于 2008-5-20 10:55:00

提示: 作者被禁止或删除内容自动屏蔽

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

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2008-5-18 22:43:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2008-5-18 23:10:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2008-5-19 09:52:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

liminnet liminnet 当前离线积分 9754 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	楼主\| 发表于 2008-5-20 10:55:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

求改lsp,点中文字后就可以以文字内容建立图层,但颜色总是白色,改随层

本帖子中包含更多资源