求编一个画指定宽度矩形并填充的LSP

37902505

麻烦论坛里各位大哥，抽空帮我编一个在平面图上画一个矩形（和CAD用REC画矩形一样，指定一个图层）并自动填充（指定另一个图层），然后旁边自动生成相应宽度的文字，我已上传文件，麻烦了

帝都划水王

你这点钱大家很难办啊，等有缘人出现吧

xyp1964

;; 需要e派工具箱(xcad)的支持

包哥

需要e派工具箱(xcad)的支持

37902505

xyp1964 发表于 2023-6-14 12:45
;; 需要e派工具箱(xcad)的支持

怎么用呀，直接加载这个LSP不行吗？要怎么加载E派工具箱？

uualice2020

37902505 发表于 2023-6-14 14:28
怎么用呀，直接加载这个LSP不行吗？要怎么加载E派工具箱？

进群下载工具箱

cq4920

这个多简单啊！
绘制矩形的方法太多了，我就直接弄个最简单的，你也可以根据REC的方法优化绘制矩形的函数，论坛太多了

2. (defun c:rect (/ pt1 pt2 width height)
   
3. (if (setq pt1 (getpoint "\n指定插入点: "))
   
4.         (progn
   
5.   (setq pt2 (getcorner pt1 "指定对角点"))
   
6.   (command "RECTANG" pt1 pt2)
   
7.         (command "CHPROP" (entlast) ""  "LA" "EQUIP_消防" "")        
   
8.         (command "-bhatch" "p" "stars"  10 180 "s" (entlast) "" "")
   
9.   (command "CHPROP" (entlast) ""  "LA" "EQUIP_消防填充" "")
   
10.         (entmake (list '(0 . "TEXT") (cons 1 "XF300 F") (cons 10 pt2) (cons 40 150)(cons 62 3)))
    
11.         (command "CHPROP" (entlast) ""  "LA" "EQUIP_消防文字" "")
    
12.   )
    
13. )
    
14. )
    

(defun c:rect (/ pt1 pt2 width height)<br /> (if (setq pt1 (getpoint "\n指定插入点: "))<br />         (progn<br />   (setq pt2 (getcorner pt1 "指定对角点"))<br />   (command "RECTANG" pt1 pt2)<br />         (command "CHPROP" (entlast) ""  "LA" "EQUIP_消防" "")        <br />         (command "-bhatch" "p" "stars"  10 180 "s" (entlast) "" "")<br />   (command "CHPROP" (entlast) ""  "LA" "EQUIP_消防填充" "")<br />         (entmake (list '(0 . "TEXT") (cons 1 "XF300 F") (cons 10 pt2) (cons 40 150)(cons 62 3)))<br />         (command "CHPROP" (entlast) ""  "LA" "EQUIP_消防文字" "")<br />   ) <br /> )<br /> )<br />

37902505

cq4920 发表于 2023-6-15 00:04
这个多简单啊！
绘制矩形的方法太多了，我就直接弄个最简单的，你也可以根据REC的方法优化绘制矩形的函数 ...

老大，厉害，这函数能不能再优化下，生成的宽度的文字要随矩形的宽度，然后文字能不能调在矩形居中位置的上方，我是新手不太懂的搞，麻烦帮改下，谢谢

cq4920

37902505 发表于 2023-6-15 08:39
老大，厉害，这函数能不能再优化下，生成的宽度的文字要随矩形的宽度，然后文字能不能调在矩形居中位置的 ...

(defun c:rect (/ pt1 pt2 width height)
(if (setq pt1 (getpoint "\n指定插入点: "))
        (progn
  (setq pt2 (getcorner pt1 "指定对角点"))
  (command "RECTANG" pt1 pt2)
        (command "CHPROP" (entlast) "" "LA" "EQUIP_消防" "")        
        (command "-bhatch" "p" "stars"  10 180 "s" (entlast) "" "")
  (command "CHPROP" (entlast) ""  "LA" "EQUIP_消防填充" "")
                                                        (setq n (rtos (abs (- (car pt1) (car pt2)))))
                                                        (setq txt (strcat "XF" n " F"))
        (entmake (list '(0 . "TEXT") (cons 1 txt) (cons 10 pt2) (cons 40 150)(cons 62 3)))
        (command "CHPROP" (entlast) ""  "LA" "EQUIP_消防文字" "")
  )
)
)

cq4920

37902505 发表于 2023-6-15 08:39
老大，厉害，这函数能不能再优化下，生成的宽度的文字要随矩形的宽度，然后文字能不能调在矩形居中位置的 ...

2. (defun c:rect (/ pt1 pt2 width height)
   
3. (if (setq pt1 (getpoint "\n指定插入点: "))
   
4.         (progn
   
5.   (setq pt2 (getcorner pt1 "指定对角点"))
   
6.   (command "RECTANG" pt1 pt2)
   
7.         (command "CHPROP" (entlast) "" "LA" "EQUIP_消防" "")        
   
8.         (command "-bhatch" "p" "stars"  10 180 "s" (entlast) "" "")
   
9.   (command "CHPROP" (entlast) ""  "LA" "EQUIP_消防填充" "")
   
10.               (setq n (rtos (abs (- (car pt1) (car pt2)))))
    
11.               (setq txt (strcat "XF" n " F"))
    
12.               (setq pt-xz-y (center-max-y pt1 pt2))
    
13.               (setq pt3 (list (car pt1) (cadr pt2)))  
    
14.         (entmake (list '(0 . "TEXT") (cons 1 txt) (cons 11 pt-xz-y) (cons 10 pt2)
    
15.                         (cons 40 150)(cons 62 3)(cons 72 1)(cons 73 1)))
    
16.         (command "CHPROP" (entlast) ""  "LA" "EQUIP_消防文字" "")
    
17.   )
    
18. )
    
19. )
    
20. 
    
21. 
    
22. (defun center-max-y (pt1 pt2)
    
23. (setq x-center (/ (+ (car pt1) (car pt2)) 2.0)
    
24.         y-max (max (cadr pt1) (cadr pt2)))
    
25.     (list x-center y-max))

(defun c:rect (/ pt1 pt2 width height)<br /> (if (setq pt1 (getpoint "\n指定插入点: "))<br />         (progn<br />   (setq pt2 (getcorner pt1 "指定对角点"))<br />   (command "RECTANG" pt1 pt2)<br />         (command "CHPROP" (entlast) "" "LA" "EQUIP_消防" "")        <br />         (command "-bhatch" "p" "stars"  10 180 "s" (entlast) "" "")<br />   (command "CHPROP" (entlast) ""  "LA" "EQUIP_消防填充" "")<br />               (setq n (rtos (abs (- (car pt1) (car pt2)))))<br />               (setq txt (strcat "XF" n " F"))<br />               (setq pt-xz-y (center-max-y pt1 pt2))<br />               (setq pt3 (list (car pt1) (cadr pt2)))  <br />         (entmake (list '(0 . "TEXT") (cons 1 txt) (cons 11 pt-xz-y) (cons 10 pt2)<br />                         (cons 40 150)(cons 62 3)(cons 72 1)(cons 73 1)))<br />         (command "CHPROP" (entlast) ""  "LA" "EQUIP_消防文字" "")<br />   ) <br /> )<br /> )<br /> <br /> <br /> (defun center-max-y (pt1 pt2)<br /> (setq x-center (/ (+ (car pt1) (car pt2)) 2.0)<br />         y-max (max (cadr pt1) (cadr pt2)))<br />     (list x-center y-max))