自定义坐标标注函数的生成

zhuizhu

上图是生成的坐标标注，

下面是能够生成该坐标标注的LISP组码
(entmake '((0 . "DIMENSION")  (5 . "3AD") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 .
"dim") (100 . "AcDbDimension") (2 . "*D63") (10 -74.3198 463.036 0.0) (11
-50.6568 472.064 0.0) (12 0.0 0.0 0.0) (70 . 38) (1 . "") (71 . 5) (72 . 1) (41
. 1.0) (42 . 3.18733) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0
1.0) (3 . "ISO-25") (100 . "AcDbOrdinateDimension") (13 -69.6505 466.223 0.0)
(14 -54.6982 470.106 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 .
0.0)))

求大神修改下:把上图中的各点用参数话输入的形式，
比如:(DEFUN DIM(P1 P2 P3 P4)(....))

laibinwu

1. (entmake (list '(0 . "DIMENSION")
   
2.                                         ;(5 . "3AD")
   
3.                '(100 . "AcDbEntity")
   
4.                                         ;(67 . 0)
   
5.                                         ;(410 . "Model")
   
6.                '(8 . "0")
   
7.                '(100 . "AcDbDimension")
   
8.                                         ;(2 . "*D63")
   
9.                (cons 10 pt1)
   
10.                                         ;(11 -50.6568 472.064 0.0)
    
11.                                         ;(12 0.0 0.0 0.0)
    
12.                '(70 . 38)
    
13.                                         ;(1 . "")
    
14.                                         ;(71 . 5)
    
15.                                         ;(72 . 1)
    
16.                                         ;(41 . 1.0)
    
17.                                         ;(42 . 3.18733)
    
18.                                         ;(52 . 0.0)
    
19.                                         ;(53 . 0.0)
    
20.                                         ;(54 . 0.0)
    
21.                                         ;(51 . 0.0)
    
22.                                         ;(210 0.0 0.0 1.0)
    
23.                                         ;(3 . "ISO-25")
    
24.                '(100 . "AcDbOrdinateDimension")
    
25.                (cons 13 pt2)
    
26.                (cons 14 pt3)
    
27.                                         ;(15 0.0 0.0 0.0)
    
28.                                         ;(16 0.0 0.0 0.0)
    
29.                                         ;(40 . 0.0)
    
30.                                         ;(50 . 0.0)
    
31.          )
    
32. )

(entmake (list '(0 . "DIMENSION")<br />                                         ;(5 . "3AD")<br />                '(100 . "AcDbEntity")<br />                                         ;(67 . 0)<br />                                         ;(410 . "Model")<br />                '(8 . "0")<br />                '(100 . "AcDbDimension")<br />                                         ;(2 . "*D63")<br />                (cons 10 pt1)<br />                                         ;(11 -50.6568 472.064 0.0)<br />                                         ;(12 0.0 0.0 0.0)<br />                '(70 . 38)<br />                                         ;(1 . "")<br />                                         ;(71 . 5)<br />                                         ;(72 . 1)<br />                                         ;(41 . 1.0)<br />                                         ;(42 . 3.18733)<br />                                         ;(52 . 0.0)<br />                                         ;(53 . 0.0)<br />                                         ;(54 . 0.0)<br />                                         ;(51 . 0.0)<br />                                         ;(210 0.0 0.0 1.0)<br />                                         ;(3 . "ISO-25")<br />                '(100 . "AcDbOrdinateDimension")<br />                (cons 13 pt2)<br />                (cons 14 pt3)<br />                                         ;(15 0.0 0.0 0.0)<br />                                         ;(16 0.0 0.0 0.0)<br />                                         ;(40 . 0.0)<br />                                         ;(50 . 0.0)<br />          )<br /> )

从左往右依次pt1 2 3 第四个点是根据第三个点来的

炫翔

laibinwu 发表于 2013-8-3 11:58
从左往右依次pt1 2 3 第四个点是根据第三个点来的

这样在移动坐标系的情况下，是不行的

来个最简单的{:soso_e113:}
(command "_.DIMORDINATE" "none" p1 "none" p2)

laibinwu

炫翔 发表于 2013-8-3 13:37
这样在移动坐标系的情况下，是不行的

来个最简单的

学习了，多谢开心

jyzas

:)近来看看