请问这个代码想增加一个线型的筛选改怎么加呀

初学者123 · 发表于 2017-11-10 22:31

;; tt(圆替换成块)
(defun c:tt ()
(princ "\n根据圆直径替换成块: ")
(if (setq ss (ssget '((0 . "circle"))))
(progn
(setq i -1
ss1 (ssadd)
)
(while (setq s1 (ssname ss (setq i (1+ i))))
(setq ent (entget s1)
pt (cdr (assoc 10 ent))
rr (cdr (assoc 40 ent))
)
(cond ((= rr 5.15)
(command "insert" "xm12" pt 1 1 0)
(ssadd s1 ss1)
)
((= rr 4.15)
(command "insert" "xm10" pt 1 1 0)
(ssadd s1 ss1)
)
)
)
(command "erase" ss1 "")
)
)
(princ)
)

在论坛找到这个代码想再增加一个线型的识别例如：一个图又不同线型的直接10.3的圆不同线型不同直径的圆分别用不同的块替换

Andyhon · 发表于 2017-11-10 22:31

本帖最后由 Andyhon 于 2017-11-11 23:02 编辑

未调试...

(defun Hidden->blk (sset)
  (setq       i -1)
  (while (setq s1 (ssname sset (setq i (1+ i))))
(setq ent (entget s1)
      pt  (cdr (assoc 10 ent))
      rr  (cdr (assoc 40 ent))
)
(cond ((= rr 5.15)
         (command "insert" "xm12H" pt 1 1 0)
         (ssadd s1 ssA)
      )
      ((= rr 4.15)
         (command "insert" "xm10H" pt 1 1 0)
         (ssadd s1 ssA)
      )
)
  )
)

(defun Center->blk (sset)
  (setq i -1)
  (while (setq s1 (ssname sset (setq i (1+ i))))
(setq ent (entget s1)
      pt  (cdr (assoc 10 ent))
      rr  (cdr (assoc 40 ent))
)
(cond ((= rr 5.15)
         (command "insert" "xm12C" pt 1 1 0)
         (ssadd s1 ssA)
      )
      ((= rr 4.15)
         (command "insert" "xm10C" pt 1 1 0)
         (ssadd s1 ssA)
      )
)
  )
)

;; tt(圆替换成块)
(defun c:tt ()
  (princ "\n根据圆直径替换成块: ")
  (if (setq ss (ssget '((0 . "circle"))))
(progn
   (setq ss1 (ssget "P" '((6 . "Center"))))
   (command "select" ss "")
   (setq ss2 (ssget "P" '((6 . "Hidden"))))
   (setq ssA (ssadd))
   (if ss1
      (Center->blk ss1)
   )
   (if ss2
      (Hidden->blk ss2)
   )
   (command "erase" ssA "")
)
  )
  (princ)
)

Andyhon · 发表于 2017-11-11 10:13

先这样试吧
(setq ss (ssget '((0 . "circle") (6 . "Center"))))
(setq ss (ssget '((0 . "circle") (6 . "Hidden"))))
...

初学者123 · 发表于 2017-11-11 10:51

Andyhon 发表于 2017-11-11 10:13
先这样试吧
(setq ss (ssget '((0 . "circle") (6 . "Center"))))
(setq ss (ssget '((0 . "circle") ( ...

我是想再框选的时候不区分只是在替换的时候才区别不同的线型再不同的块替换

Andyhon · 发表于 2017-11-11 11:17

(setq ss (ssget '((0 . "circle"))))

...

(setq ss1 (ssget "P" '((6 . "Center"))))
(command "select" "ss" "")
(setq ss2 (ssget "P" '((6 . "Hidden"))))
...

初学者123 · 发表于 2017-11-11 20:32

Andyhon 发表于 2017-11-11 11:17
(setq ss (ssget '((0 . "circle"))))

...

大神能具体点么才接触这个不是很懂我就是想再 rr 5.15 这个条件基础上再加一个队线型的条件

Andyhon · 发表于 2017-11-11 21:20

请上传Dwg含至少三个实例图样作说明...

初学者123 · 发表于 2017-11-11 21:27

Andyhon 发表于 2017-11-11 21:20
请上传Dwg含至少三个实例图样作说明...

就想这个图里面的四个圆一样相吧这四种分别用不同的块替换

Andyhon · 发表于 2017-11-11 21:31

块名又各如何?

初学者123 · 发表于 2017-11-11 21:32

Andyhon 发表于 2017-11-11 21:31
块名又各如何?

块名字可以随便做那个打算做现成的图快插入

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

[提问] 请问这个代码想增加一个线型的筛选改怎么加呀

最佳答案

本帖子中包含更多资源