[推荐]：一个改线宽的程序

wyh · 发表于 2003-8-21 10:23:33

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

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

×

(DEFUN C:MDWW( / STXT SLEN I E_NT B E_NAME NEW_1)
(SETVAR "CMDECHO" 0)
(PROMPT "\n          (^^)一见好心情(^^)")
(PROMPT "\n  -----------------------------------------------")
(IF NEW_W (SETQ NEW_W (/ NEW_W )))
(IF (NOT NEW_W) (SETQ NEW_W 60))
(SETQ NEW_1 (GETREAL (STRCAT "\n  输入新宽度: <" (RTOS NEW_W 2 2) "> ")))
(IF NEW_1 (SETQ NEW_W NEW_1))
(SETQ NEW_W (* NEW_W ))
(PROMPT "\n 选择目标:")
(SETQ STXT (SSGET))
(SETQ SLEN (SSLENGTH STXT) I 0 )
(WHILE (SSNAME STXT I)
   (SETQ E_NT (SSNAME STXT I))
   (SETQ E_NAME (ENTGET E_NT))
   (SETQ B (CDR (ASSOC 0 E_NAME)))
   (COND ((= B "POLYLINE")
            (COMMAND "PEDIT" E_NT "W" NEW_W "")
         )
         ((= B "CIRCLE")
            (SETQ P_CEN (CDR (ASSOC 10 E_NAME)))
            (SETQ D_EN (* (CDR (ASSOC 40 E_NAME)) 2.0))
            (COMMAND "DONUT" (- D_EN NEW_W) (+ D_EN NEW_W) P_CEN "")
            (ENTDEL E_NT)
         )
         ((OR (= B "ARC") (= B "LINE"))
            (COMMAND "PEDIT" E_NT "Y" "W" NEW_W "")
         )
   )
   (SETQ I (1+ I))
)
(REDRAW)
)
(PRINC)

lsjjm · 发表于 2003-8-21 16:39:53

如果是椭圆或其他曲线呢?

wyh · 发表于 2003-8-21 16:47:31

椭圆及其它曲线都可以改。

lsjjm · 发表于 2003-8-21 17:04:43

我怎么试了, 只能改直线, 圆弧.. 改圆还跑了位置?

li809 · 发表于 2005-2-17 23:08:59

能重新修改一下吗

放牛娃 · 发表于 2005-2-20 14:31:21

还不错，但是对圆的修改略有不足：因为是新画个圆环，图层、线形、颜色等，都应该和原来的圆一致，得增加语句，提取其属性。

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

[推荐]：一个改线宽的程序

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

相关帖子