[求助]：CAD中的圆形加粗

lvmazha · 发表于 2004-7-13 14:41:02

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

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

×

请高手指教，将圆形加粗除了用PL手绘外，有什么系统变量的设置可以一劳永逸吗？

liucc2000 · 发表于 2004-7-15 10:34:39

把圆剪切出一个小口，然后加粗！

xiaoyoufish · 发表于 2004-7-15 15:35:05

那个方法太笨了，有什么好方法

cwzc · 发表于 2004-7-15 16:10:11

改变线型，将它设置为较粗线型的另外一个层。

linyun007 · 发表于 2004-7-15 18:48:28

画2个圈圈，然后填充这个不知道是不是也很笨的方法？

我是小渔儿 · 发表于 2004-7-16 08:18:11

用LED命令可以，还可以改变加粗的宽度

482217 · 发表于 2004-7-16 11:03:58

DONUT命令就能画圆环了

okay123hao · 发表于 2004-7-16 11:11:39

用一下这个lsp程序。加载后。在命令框输入clw。即可

(DEFUN C:CLW (/ P L N EN ENM YN NW OW)
(setvar "cmdecho" 0)
(setvar "blipmode" 0)
(SETQ P (SSGET))
(IF P
      (PROGN (SETQ L 0 N (SSLENGTH P) CHM 0)
            (WHILE (< L N)
                  (SETQ ENM (CDR (ASSOC 0 (SETQ EN (ENTGET (SSNAME P L))))))
                     (IF (= ENM "POLYLINE")
                              (PROGN
                                    (IF (ZEROP L)
                                             (PROGN (SETQ OW (CDR (ASSOC 40 EN)))
                                                (PRINC "\nPLease Input New line width<")
                                                (PRINC (RTOS OW 2 2)) (SETQ NW (GETREAL ">:"))
                                                      (IF (NULL NW) (SETQ NW OW))
                                             )
                                       )
(COMMAND "pedit" (SSNAME P L) "w" NW "")
                              )
                     )
                     (IF (or (= ENM "LINE") (= enm "ARC"))
                              (PROGN
                                       (IF (ZEROP L)
                                          (PROGN
                                                      (SETQ NW (GETREAL "\nINPUT LINE WIDTH <0>:"))
                                                      (IF (= NW NIL) (SETQ NW 0))
                                          )
                                       )
                              (COMMAND "PEDIT" (SSNAME P L) "Y" "W" NW "")
                              )
                     )
                     (IF (= ENM "CIRCLE")
                              (PROGN
                                       (IF (ZEROP L)
                                          (PROGN
                                                         (SETQ NW (GETREAL"\nINPUT LINE WIDTH <0>:"))
                                                            (IF (= NW NIL) (SETQ NW 0))
                                          )
                                       )
                                 (SETQ DD (* (CDR (ASSOC 40 (ENTGET (SSNAME P L)))) 2))
                                 (SETQ CEN (CDR (ASSOC 10 (ENTGET (SSNAME P L)))))
                                 (SETQ DD1 (+ DD NW) DD2 (- DD NW))
                                 (COMMAND "DONUT" DD2 DD1 CEN "")
                                 (ENTDEL (SSNAME P L))
                              )
                        )
(SETQ L (1+ L))
            )
      )
)
(PRINC "---")
(PRINC L) (PRINC "---")
(PRINC))

你可用记事本打开。以后缀  .lsp 的格式存储。应用cad 是加载就可以了

cuiwenjun2008 · 发表于 2005-1-9 23:08:38

十分好用，解决了我的大问题了，太感谢了！！

yhy · 发表于 2005-1-10 11:27:14

天正的加粗曲线命令早就解决了,

viphappy · 发表于 2005-1-10 14:17:01

习惯了，我从不用PL线宽：
1.PL线会使图形文更大，尤其对大图不利。
2.作起比较繁琐。
3.不利于变比例出图。

因此，我一直采用“对象线宽”。

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

[求助]：CAD中的圆形加粗

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

相关帖子