[求助]：关于PLINE命令的改进程序

ysyshui · 发表于 2003-5-12 11:11:30

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

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

×

每次想修改PLINE线的宽度时，都要先PL，然后选择这PL线，再W，然后输入线宽数字，特别是修改好几根时，要点好多次，很烦，有没有人写一个程序，将这几个命令合成，比如说PW，选择要修改的PL线（可以多选），然后输入数字，就改成功。

lijiao · 发表于 2003-5-12 11:31:13

非常容易，你会用LSP吗？

ysyshui · 发表于 2003-5-12 13:47:12

我不会LSP语言，所以求助于大家！谢谢

jianqiang21c · 发表于 2003-5-12 14:34:15

[font=courier]
(defun c:plw ()
(setq ss (ssget'((0 . "LWPOLYLINE"))))
(cond ((null ss) (exit)))
(cond ((null oldnb) (setq oldnb 0.0)))
(initget 4)
(setq sz (getreal (strcat "输线段新线宽<" (rtos oldnb) ">:")))
(if (not sz)
(setq sz oldnb)
(setq oldnb sz)
)
(command ".pedit" "m" ss "" "w" sz "")
(princ)
)
[/font]

jianqiang21c · 发表于 2003-5-12 14:41:49

最初由 jianqiang21c 发布
[B](defun c:plw ()
 (setq ss (ssget'((0 . "LWPOLYLINE"))))
 (cond ((null ss) (exit)))
 (cond ((null oldnb) (setq oldnb 0.0)))
(initget 4)
 (setq sz (getreal (strcat "输线段新线宽<" (rtos old... [/B]

加载后用命令PLW即可

ysyshui · 发表于 2003-5-12 14:54:27

楼上的兄弟，谢谢了，好像不行啊！

jianqiang21c · 发表于 2003-5-12 15:27:55

可能没有加载成功，在我机器上测试成功，把下的LSP拖到CAD窗口里，用命令PLW试试，如还不行请说明你加载的方法和操作系统以及CAD版本？

hqd9639 · 发表于 2003-5-12 16:39:51

文不对题,，应是PE命令吧？

ydf7332462 · 发表于 2003-5-12 17:51:26

command:mpedit

aeo · 发表于 2003-5-13 01:20:48

http://www.xdcad.net/forum/showthread.php?s=&threadid=16197
应该还有的,自己找吧.

ysyshui · 发表于 2003-5-14 21:24:04

谢谢，这里真是个学习的好地方啊！

qsh100 · 发表于 2003-6-4 11:19:03

天正里不是有还用那么复杂吗而且不管是LINE 还是PL
命令为 TOWIDTH

tuger · 发表于 2003-6-4 17:24:31

试一下这个，还有更多的工具，你可以去这里找http://www.xdcad.net/forum/showt ... y=&pagenumber=4

[font=courier]
;;;;线加粗，可处理pl,line.arc,circle
(defun c:zxcc (/ oldcm pt pt1 pt2 r1 r2 rad th v1 v2)
(zxerrset)(setvar "cmdecho" 0)
(command "undo" "begin")
(princ "\n请选择需加粗的物体:")
(setq v1 (ssget '((-4 . "< or") (0 . "LINE")
(0 . "LWPOLYLINE")
(0 . "ARC")
(0 . "CIRCLE")
(-4 . "OR>")
) ) )
(if (not *th)
(setq *th 0.0)
)
(setq th (getreal (strcat "\n请输入宽度 <" (rtos *th 2 4) ">:")))
(if th
(setq *th th)
)
(setq v2 0)
(if (/= v1 nil)
(while (< v2 (sslength v1))
(setq pt1 (ssname v1 v2))
(setq pt2 (entget pt1))
(cond
((or
(= "LINE" (cdr (assoc 0 pt2)))
(= "ARC" (cdr (assoc 0 pt2)))
)
(command "_pedit" pt1 "" "_w" *th "")
)
((or
(= "POLYLINE" (cdr (assoc 0 pt2)))
(= "LWPOLYLINE" (cdr (assoc 0 pt2)))
)
(command "_pedit" pt1 "_w" *th "")
)
((= "CIRCLE" (cdr (assoc 0 pt2)))
(progn
(setq pt (cdr (assoc 10 pt2)))
(setq rad (cdr (assoc 40 pt2)))
(setq r1 (- (* rad 2) *th))
(setq r2 (+ (* rad 2) *th))
(command "donut" r1 r2 pt "")
(entdel pt1)
)
)
(T
T
)
)
(setq v2 (+ v2 1))
)
)
(command "undo" "end")
(zxerrhf)
(princ)
)
[/font]

[font=courier] 
;;;;线加粗，可处理pl,line.arc,circle 
(defun c:zxcc (/ oldcm pt pt1 pt2 r1 r2 rad th v1 v2) 
  (zxerrset)(setvar "cmdecho" 0) 
  (command "undo" "begin") 
  (princ "\n请选择需加粗的物体:") 
  (setq v1 (ssget '((-4 . "< or") (0 . "LINE") 
                   (0 . "LWPOLYLINE") 
                   (0 . "ARC") 
                   (0 . "CIRCLE") 
                   (-4 . "OR>") 
                  ) ) ) 
  (if (not *th) 
    (setq *th 0.0) 
  ) 
  (setq th (getreal (strcat "\n请输入宽度 <" (rtos *th 2 4) ">:"))) 
  (if th 
    (setq *th th) 
  ) 
  (setq v2 0) 
  (if (/= v1 nil) 
    (while (< v2 (sslength v1)) 
      (setq pt1 (ssname v1 v2)) 
      (setq pt2 (entget pt1)) 
      (cond 
        ((or 
           (= "LINE" (cdr (assoc 0 pt2))) 
           (= "ARC" (cdr (assoc 0 pt2))) 
         ) 
          (command "_pedit" pt1 "" "_w" *th "") 
        ) 
        ((or 
           (= "POLYLINE" (cdr (assoc 0 pt2))) 
           (= "LWPOLYLINE" (cdr (assoc 0 pt2))) 
         ) 
          (command "_pedit" pt1 "_w" *th "") 
        ) 
        ((= "CIRCLE" (cdr (assoc 0 pt2))) 
          (progn 
            (setq pt (cdr (assoc 10 pt2))) 
            (setq rad (cdr (assoc 40 pt2))) 
            (setq r1 (- (* rad 2) *th)) 
            (setq r2 (+ (* rad 2) *th)) 
            (command "donut" r1 r2 pt "") 
            (entdel pt1) 
          ) 
        ) 
        (T 
          T 
        ) 
      ) 
      (setq v2 (+ v2 1)) 
    ) 
  ) 
  (command "undo" "end") 
   (zxerrhf) 
  (princ) 
) 
[/font]

青马 · 发表于 2003-6-8 00:52:20

有那么麻烦吗,楼上不是有个兄弟编出来了吗,命令是plw,还是会点lsp好啊

zyj66 · 发表于 2003-6-8 21:01:54

把画箭头也加上就更好了

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

[求助] [求助]：关于PLINE命令的改进程序

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

相关帖子