[LISP程序]：简单实用，pl线厚度的格式刷

saoaduan

简单实用，pl线宽度的格式刷，仅对整段pl线宽度一样的pl线有效



;;pl刷
;;pl线内各点为同一宽度

(defun c:plm ( / ent ent0 ent_date ent0_date ywz_list gwz_list)
   (setq ent (entsel "\n请选择源pl线："))
   (setq ent_date (entget (car ent)))
   (setq ywz_list (assoc 43 ent_date))
   (princ ywz_list)
   (setq ent0 (entsel "\n请选择目标pl线："))
   (repeat 10000                             ;;重复10000次
     (progn
       (setq ent0_date (entget (car ent0)))
       (setq gwz_list (assoc 43 ent0_date))
       (setq ent0_date (subst ywz_list gwz_list ent0_date))
       (entmod ent0_date)
       (setq ent0 (entsel "\n请选择目标pl线："))
     )
   )
   (princ)
)
(prompt  "\n******plm--pl刷******")
(prompt  "\n******pl线内各点为同一宽度******")
(princ)

狂刀

2004版本的刷子已经可以刷pl线条宽度了
更早的版本没有注意是否可以

青马

(defun c:qaa (/ ss1 sp1 ss sl i spa)
  ;(defun c:qa ()
  (setq        ss1 (car (entsel "\n请选择源物体"))
        sp1 (entget ss1)
  )                                        ;选择源物体
  (princ "\n请选择目标物体")
  (setq        ss (ssget '((0 . "LWPOLYLINE")))
        sl (sslength ss)
        i  0
  )                                        ;选择目标物体
  (repeat sl
    (progn
      (setq spa (entget (ssname ss i)))
      (setq spa (subst (assoc 43 sp1) (assoc 43 spa) spa))
    ;  (setq spa (subst (assoc 41 sp1) (assoc 41 spa) spa))
      (entmod spa)
      (setq i (+ i 1))
      (princ)
    )
  )                                        ;循环改目标物体
)                                        ;clone源文字内容到目标文字
(princ)


看看我的，你的重复10000次真有意思