求个根据圆不同的直径 插入不同的块的代码

oypk51

想根据圆不同的大小 在圆心位置 插入不同的块，有谁有这样的源码么

pchuangzmx

路过，顶起来，可以一起来学习一下

oypk51

有没有哪位大神有呀 用币买也可以的

Andyhon

...不同的块...
所以会有名称对映的问题对不?

人机如何互动?要那些提示?
这些攸关程序架构!
...

用币买也买不来呀!

oypk51

Andyhon 发表于 2017-11-3 21:54
...不同的块...
所以会有名称对映的问题对不?

块都是已经做好了的
我自己(defun C:k3 (/ BLOCK E ELIST N PT SS)
  (princ "\n根据圆直径替换成块)
  (if (setq SS (ssget '((0 . "CIRCLE")(-4 . "=")(40 . 5.15))))
      (repeat (setq N (sslength SS))
      (setq E (ssname SS (setq N (1- N))))
      (setq ELIST (entget E))
      (setq PT (cdr (assoc 10 ELIST)))
      (command "INSERT" "xm12"(trans pt 0 1) 1 1 0)
      (entdel E) ;_删除原有的圆
    )
  )
  (if (setq SS (ssget '((0 . "CIRCLE")(-4 . "=")(40 . 4.15))))
      (repeat (setq N (sslength SS))
      (setq E (ssname SS (setq N (1- N))))
      (setq ELIST (entget E))
      (setq PT (cdr (assoc 10 ELIST)))
      (command "INSERT" "xm10"(trans pt 0 1) 1 1 0)
      (entdel E) ;_删除原有的圆
    )
  )
  (princ)
)

需要选择两次才能够完成替换两种圆  我是想只用款选一次就能够把不同大小的圆都能够替换出来

永不言弃

试试这个(defun C:k3 (/ BLOCK E ELIST N PT SS);;;  (princ "\n根据圆直径替换成块)
  (if (setq SS (ssget '((0 . "CIRCLE")
                        (-4 . "<or")
                        (40 . 5.15)
                        (40 . 4.15)
                        (-4 . "or>")
                       )
               )
      )
      (repeat (setq N (sslength SS))
      (setq E (ssname SS (setq N (1- N))))
      (setq ELIST (entget E))
      (setq PT (cdr (assoc 10 ELIST)))
      (command "INSERT" "xm12"(trans pt 0 1) 1 1 0)
      (entdel E) ;_删除原有的圆
    )
  )
  (princ)
)

xyp1964

1. ;; tt(圆替换成块)
   
2. (defun c:tt ()
   
3.   (princ "\n根据圆直径替换成块: ")
   
4.   (if (setq ss (ssget '((0 . "circle"))))
   
5.     (progn
   
6.       (setq i        -1
   
7.             ss1        (ssadd)
   
8.       )
   
9.       (while (setq s1 (ssname ss (setq i (1+ i))))
   
10.         (setq ent (entget s1)
    
11.               pt  (cdr (assoc 10 ent))
    
12.               rr  (cdr (assoc 40 ent))
    
13.         )
    
14.         (cond ((= rr 5.15)
    
15.                (command "insert" "xm12" pt 1 1 0)
    
16.                (ssadd s1 ss1)
    
17.               )
    
18.               ((= rr 4.15)
    
19.                (command "insert" "xm10" pt 1 1 0)
    
20.                (ssadd s1 ss1)
    
21.               )
    
22.         )
    
23.       )
    
24.       (command "erase" ss1 "")
    
25.     )
    
26.   )
    
27.   (princ)
    
28. )

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

oypk51

xyp1964 发表于 2017-11-4 22:51

太感谢版主了

初学者123

xyp1964 发表于 2017-11-4 22:51

版主 你这个代码除了圆直径这一个条件 还能再增加一个线型的条件么

shopping200

xyp1964 发表于 2017-11-4 22:51

院长无所不能 太牛！！！！