提取矩形的长度和宽度程序-求助高手

xingyun300

加到哪呀，我不太懂lsp语言呀！帮帮修改一下吧！！

xyp1964

;; 标注矩形宽高
;; 需要e派工具箱的支持 http://xyp1964.ys168.com
(defun c:tt ()
  (CMDLASC0)
  (setq int (Uint 1 "" "小数点位数" int))
  (princ "\n选择矩形: ")
  (setq        ss (ssget '((0 . "*POLYLINE")))
        i  -1
  )
  (while (setq s1 (ssname ss (setq i (1+ i))))
    (setq p1 (xyp-get-9pt s1 1)
          p3 (xyp-get-9pt s1 3)
          p5 (xyp-get-9pt s1 5)
          p9 (xyp-get-9pt s1 9)
          tx (strcat (rtos (distance p1 p3) 2 int)
                     "×"
                     (rtos (distance p3 p9) 2 int)
             )
    )
    (xyp-Text 5 p5 tx)
  )
  (CMDLA1)
)

xingyun300

不能用呀！

xingyun300

xyp1964 发表于 2012-4-4 09:28
;; 标注矩形宽高
;; 需要e派工具箱的支持 http://xyp1964.ys168.com
(defun c:tt ()

我刚回过你的贴子，谁知你在我的贴子上！嘿嘿

好像是不能用呀，出现有错误呢！

命令: tt
; 错误: no function definition: CMDLASC0

chpmould

刚好有空,修改了下,你试试...

2. (defun c:test ( / a ac fou n one pt1 qend str tow trhee)
   
3.   (princ "\nPlease select a rectangle:")
   
4.   (setq a (entsel))
   
5.   (setq ac (entget (car a))
   
6.         n 0
   
7.   )
   
8.   (repeat (length ac)
   
9.     (setq qend (nth n ac))
   
10.     (if (= (car qend) 10)
    
11.       (setq one (cdr qend))
    
12.       (setq n (1+ n))
    
13.     )
    
14.   )
    
15.   (setq tow (cdr (nth (+ n 4) ac))
    
16.         trhee (cdr (nth (+ n 8) ac))
    
17.         fou (cdr (nth (+ n 12) ac))
    
18.         pt1 (getpoint "\nPlease select a point:")
    
19.         str (strcat (rtos (distance one tow) 2 2) "X" (rtos
    
20.                                                             (distance one
    
21.                                                                       fou
    
22.                                                             ) 2 2
    
23.                                                       )
    
24.             )
    
25.   )
    
26.   (entmake (list '(0 . "TEXT") (cons 1 str) (cons 10 pt1) (cons 40
    
27.                                                                 (*
    
28.                                                                    (distance one tow)
    
29.                                                                    0.1
    
30.                                                                 )
    
31.                                                           )
    
32.            )
    
33.   )
    
34.   (princ)
    
35. )
    

(defun c:test ( / a ac fou n one pt1 qend str tow trhee)<br />   (princ "\nPlease select a rectangle:")<br />   (setq a (entsel))<br />   (setq ac (entget (car a))<br />         n 0<br />   )<br />   (repeat (length ac)<br />     (setq qend (nth n ac))<br />     (if (= (car qend) 10)<br />       (setq one (cdr qend))<br />       (setq n (1+ n))<br />     )<br />   )<br />   (setq tow (cdr (nth (+ n 4) ac))<br />         trhee (cdr (nth (+ n 8) ac))<br />         fou (cdr (nth (+ n 12) ac))<br />         pt1 (getpoint "\nPlease select a point:")<br />         str (strcat (rtos (distance one tow) 2 2) "X" (rtos<br />                                                             (distance one<br />                                                                       fou<br />                                                             ) 2 2<br />                                                       )<br />             )<br />   )<br />   (entmake (list '(0 . "TEXT") (cons 1 str) (cons 10 pt1) (cons 40<br />                                                                 (*<br />                                                                    (distance one tow)<br />                                                                    0.1<br />                                                                 )<br />                                                           )<br />            )<br />   )<br />   (princ)<br /> )<br />

xingyun300

chpmould 发表于 2012-4-4 16:03
刚好有空,修改了下,你试试...

谢谢，能用！就是不能确定小数点的位数，好像每次都是两位小数点！还有，字体的大小好像根据图形的大小而变化!!

429014673

chpmould 发表于 2012-4-4 16:03
刚好有空,修改了下,你试试...

大师也做一个不是多线段的rectangle

xingyun300

xingyun300 发表于 2012-4-4 19:26
谢谢，能用！就是不能确定小数点的位数，好像每次都是两位小数点！还有，字体的大小好像根据图形的大小 ...

不会改呢，我看了一下，
(entmake (list '(0 . "TEXT") (cons 1 str) (cons 10 pt1) (cons 40(*((distance one fou))0.1))))

这句说建一个表元吧，不懂怎么会事呢？特别是后面的  0.1   

xingyun300

http://bbs.mjtd.com/thread-92482-1-5.html

看到这个贴子，我明白了上面那个程序怎么改了！嘿嘿，明经是学习的好地方！！！

flytoday

又是梯形也能有计算式就好了哈~