怎样实现这两个功能啊

無恒的地盘 · 发表于 2011-8-13 14:24

本帖最后由無恒的地盘于 2011-9-5 20:33 编辑

怎样一次实现这两个功能啊，就是先加载线型，在转换线型，因为CAD有时没加载线型的时候后面的功能不能实现，所以想请教大师帮忙弄一个。
(defun C:x111 ()
(setvar "CMDECHO" 0)
(if (null (tblsearch "ltype" "DOT"))
  (command "-linetype" "l" "DOT" "" "")
  (command "-linetype" "l" "DOT" "" "N" ""))
  (setvar "CMDECHO" 1)
(princ))

(defun C:X222(/ ent)
(setq ent (ssget))
(command "change" ent "" "p" "LT" "center2" "S" "15" """"))

该贴已经同步到無恒的地盘的微博

Andyhon · 发表于 2011-8-13 17:35

(defun linetypeD (m)
  (if (null (tblsearch "ltype" m))
(command "-linetype" "l" m "" "")
  )
)

(defun C:X222 (/ ent)
  (setq ent (ssget))
  (linetypeD "center2")
  (command "change" ent "" "p" "LT" "center2" "S" "15" "")
)

無恒的地盘 · 发表于 2011-8-13 18:46

谢谢，可以用了

無恒的地盘 · 发表于 2011-8-13 18:48

回复 Andyhon 的帖子

谢谢，可以用了

AMTONNY · 发表于 2011-8-14 13:49

不错的方法，简单利索

lgttblue · 发表于 2013-6-23 17:47

很简练！顶

szxgsh · 发表于 2013-6-25 01:10

学习中•••••••••••

paulpipi · 发表于 2020-10-7 11:15

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

[基础] 怎样实现这两个功能啊