明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1346|回复: 2

高手帮我该下下面的lsp

[复制链接]
发表于 2013-4-14 22:35:53 | 显示全部楼层 |阅读模式
需要,直接把输入线宽,变成100的线宽。麻烦改下下面的lsp
;能改line,pline,arc,circle
(defun c:x12 (/ *error* s2 n e ty wd index pt rad r1 r2 old_lay date1 ffg oos)
(setvar "cmdecho" 0)
(defun *error* (msg)
  (if oos
   (setvar "osmode" oos)
  )
  (if old_lay
   (setvar "clayer" old_lay)
  )
)
(setq oos (getvar "osmode"))
(setvar "osmode" 0)
(setq old_lay (getvar "clayer"))
(prompt "\n请选择要连接成多义线的线(line,arc,circle,lwpolyline)<退出>:")
(setq s2 (ssget '((-4 . "<AND") (0 . "LINE,LWPOLYLINE,ARC,CIRCLE")
    (-4 . "AND>")
   )
   )
)
(if (/= s2 nil)
  (progn
   (setq date1 (getvar "CDATE"))
   (setq wd (getdist "多义线宽度<0>:")
  wd (if wd
      wd
      0
     )
   )
   (setq n (sslength s2))
   (setq index 0)
   (repeat n
    (setq e (ssname s2 index)
   ent (entget e)
   index (+ 1 index)
   ty (assoc 0 ent)
    )
    (if (= "LWPOLYLINE" (cdr ty))
     (progn
      (command ".change" s2 "" "P" "C" "bylayer" "")
      (setq ffg (cdr (assoc 70 ent)))
      (if (= ffg 0)
       (command ".pedit" e "j" s2 "" "w" wd "")
       (command ".pedit" e "w" wd "")
      )
     )
    )
    (if (= "LINE" (cdr ty))
     (progn
      (command ".change" s2 "" "P" "C" "bylayer" "")
      (command ".pedit" e "y" "j" s2 "" "w" wd "")
     )
    )
    (if (= "CIRCLE" (cdr ty))
     (progn
      (setq pt (cdr (assoc 10 ent)))
      (setq rad (cdr (assoc 40 ent)))
      (setq r1 (- (* rad 2) wd))
      (setq r2 (+ (* rad 2) wd))
      (if (> wd (* 2 rad))
       (progn
(setq r1 0)
(setq r2 (* rad 2))
       )
      )
      (command ".change" s2 "" "P" "C" "bylayer" "")
      (command "_donut" r1 r2 pt "")
      (entdel e)
     )
    )
    (if (= "ARC" (cdr ty))
     (progn
      (setq r1 (cdr (assoc 10 ent)))
      (setq r2 (cdr (assoc 40 ent)))
      (setq pt (cdr (assoc 50 ent)))
      (setq rad (cdr (assoc 51 ent)))
      (setq p1 (polar r1 pt r2))
      (setq p2 (polar r1 rad r2))
      (command ".change" s2 "" "P" "C" "bylayer" "")
      (command "_pline" p1 "_w" wd wd "_a" "_ce" r1 p2 "")
      (entdel e)
     )
    )
   )
   (setq n (itoa n)
  wd (rtos wd 2 0)
   )
   (prompt (strcat "\n共有\"" n "\"条线宽度变为\"" wd "\"的多义线。耗时\"" (rtos (* (- (getvar "CDATE") date1) 86400) 2

3)
     "\"秒。"
    )
   )
  )
)
(command "_clayer" old_lay)
(setvar "osmode" oos)
(setvar "cmdecho" 1)
(princ)
)



发表于 2013-4-15 11:13:50 | 显示全部楼层
没看懂什么意思,程序已经实现line,pline,arc,circle变为给定的线宽了呀
 楼主| 发表于 2013-4-15 18:53:32 | 显示全部楼层
zyhandw 发表于 2013-4-15 11:13
没看懂什么意思,程序已经实现line,pline,arc,circle变为给定的线宽了呀

我已弄好了  谢谢
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-12-14 06:39 , Processed in 0.143760 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表