[编程申请]：请XYP1964版主来看一下，用了您的函数。

lengliqun · 发表于 2007-9-9 18:44:01

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

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

×

;;;将选中的AXIS层轴圈全改成800大小
(defun c:8/ ()
  (CMDLA0)
  (setq ss (ssget '((0 . "INSERT")(8 . "AXIS")))
i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
(sub_upd s1 41 800)
(sub_upd s1 42 800)
(sub_upd s1 43 800)
  )
  (CMDLA1)
)
想将轴号统一改成800大小，可只改了圆圈直径为800，而轴圈里的文字没有随之变化，为何，请帮忙。
谢谢。

它山之石 · 发表于 2007-9-10 12:44:50

SCALE

xyp1964 · 发表于 2007-9-22 10:46:27

不是一个整体！

lengliqun · 发表于 2007-9-22 20:55:13

它们是带属性的块啊。
带属性的块不是一个整体吗？
那我申请个lsp程序，将块（含属性块）的X、Y、Z比例全修改成用户输入的一个数值，默认为800，
这个程序用来统一建筑、结构、大样里的轴圈大小。

xyp1964 · 发表于 2007-9-23 09:29:49

[FONT=courier new](defun c:test ()
(CMDLA0)
(setq ss (ssget '((0 . "INSERT") (8 . "AXIS")))
i -1
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(command "scale"
s1
""
(xyp-get-dxf 10 s1)
(/ 800.0 (xyp-get-dxf 41 s1))
)
)
(CMDLA1)
)[/FONT]

dwg001 · 发表于 2007-9-23 10:33:15

是这个效果吗？

lengliqun · 发表于 2007-9-23 18:40:39

是想求得dwg001 的郊果。
谢谢xyp1964，您的lsp程序CAD2004测试可用。谢谢。

dwg001 · 发表于 2007-9-23 20:00:15

上传一个，请多提意见。

lengliqun · 发表于 2007-9-25 12:25:41

zxh (批量缩放轴线号 2007.08.04).rar
下载不了，可否贴出来或传到我邮箱lengliqun@163.com
谢谢。*-*4

dwg001 · 发表于 2007-9-30 19:33:47

to lengliqun

已发，请收。

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

[编程申请]：请XYP1964版主来看一下，用了您的函数。

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

相关帖子