[讨论]：eachy,xyp1964,看看这个线形比例刷程序怎么改？

MJJ3468 · 发表于 2006-4-5 19:25:44

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

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

×

长老们一定帮忙哦。希望能得到你们一如既往的支持。
程序对线形比例为1的线形无效，对线形比例不是1的，可以使用。
到底怎么改啊，麻烦论坛大虾指点

(defun c:sxx()
(setvar "cmdecho" 0)
(setq a (entsel "\n 选取目标线型比例："))
(setq a_data (entget (car a)))
(setq new (assoc 48 a_data))
(prompt "\n 选取要更新的标注线型比例：")
(setq ss (ssget))
(setq sl (sslength ss))
(setq n sl)
(setq sno 0)
(while (> n 0)
(setq en_name (ssname ss sno))
(setq en_data (entget en_name))
(setq old (assoc 48 en_data))
(setq en_data (subst new old en_data))
(entmod en_data)
(setq n (- n 1))
(setq sno (+ sno 1))
)
(prompt "\n快速更新的标注线型比例")
(prin1)
)

C:\Documents and Settings\sicent\My Documents\My Pictures\__scale__1_998536598

xyp1964 · 发表于 2006-4-5 20:22:13

[FONT=courier new](defun c:sxx ()
(setvar "cmdecho" 0)
(setq e1 (car (entsel "\n选取目标线型比例: "))
ls (vla-get-LinetypeScale (vlax-ename->vla-object e1))
)
(prompt "\n选取要更新的标注线型比例: ")
(setq ss (ssget)
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(if (/= (vla-get-LinetypeScale (vlax-ename->vla-object s1)) ls)
(vla-put-LinetypeScale (vlax-ename->vla-object s1) ls)
)
)
(princ)
)[/FONT]

MJJ3468 · 发表于 2006-4-6 10:27:36

最初由 xyp1964 发布
[B][CODE](defun c:sxx ()
  (setvar "cmdecho" 0)
  (setq e1 (car (entsel "\n选取目标线型比例: "))
ls (vla-get-LinetypeScale (vlax-ename->vla-object e1))
  )
  (prompt "\n选取要更新... [/B]

为何XYP1964斑竹不说明我的程序哪里不对了呢？

xyp1964 · 发表于 2006-4-6 10:30:47

最初由 MJJ3468 发布
[B][QUOTE]最初由 xyp1964 发布
[B][CODE](defun c:sxx ()
(setvar "cmdecho" 0)
(setq e1 (car (entsel "\n选取目标线型比例: "))
ls (vla-get-LinetypeScale (vlax-ename->vla-obj... [/B]

不是所有实体都存在dxf组码48，如果不存在，当然无效！

白皮猪 · 发表于 2014-6-8 10:11:58

好像不行.....:)

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

[讨论]：eachy,xyp1964,看看这个线形比例刷程序怎么改？

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

相关帖子