[编程交流] 使用entmake的新ucs

 
(entmake '((0 . "UCS") (2 . "q1") (70 . 0)
  (10 611.533 -2957.24 0.0)
  (11 1.0 0.0 0.0)
  (12 1.0 0.0 0.0)
  (79 . 0) (146 . 0.0)))

(entmake '((0 . "UCS")
    (100 . "AcDbSymbolTableRecord")
    (100 . "AcDbUCSTableRecord")
    (2 . "q1")
    (70 . 0)
    (10 611.533 -2957.24 0.0)
    (11 1.0 0.0 0.0)
    (12 0.0 1.0 0.0)
    (79 . 0)
    (146 . 0.0)
   )
)

 
((-1 . <Entity name: 7efb6f18>) (0 . "VIEWPORT") (330 . <Entity 
name: 7efb6db0>) (5 . "6A3") (100 . "AcDbEntity") (67 . 1) (410 . "1_1_1") (8 . 
"0") (100 . "AcDbViewport") (10 695.72 252.947 0.0) (40 . 159.041) (41 . 
93.7076) (68 . 2) (69 . 3) (12 -3109.29 -131.475 0.0) (13 0.0 0.0 0.0) (14 0.5 
0.5 0.0) (15 0.5 0.5 0.0) (16 -7309.86 8820.54 12455.1) (17 446.166 -4419.46 
-460.403) (42 . 50.0) (43 . 0.0) (44 . 0.0) (45 . 15185.6) (50 . 0.0) (51 . 
1.24127e-016) (72 . 1000) (90 . 557152) (281 . 0) (71 . 1) (74 . 0) (110 3874.3 
4174.08 0.0) (111 -1.0 1.22465e-016 0.0) (112 -1.22465e-016 -1.0 0.0) (79 . 0) 
(146 . 0.0) (170 . 0) (61 . 5) (348 . <Entity name: 7efd3f38>) (292 . 1) (282 . 
1) (141 . 0.0) (142 . 0.0) (63 . 250) (421 . 3355443))

(defun c:addvp(/ pSp nVp)
 
 (vl-load-com)
 
 (setq pSp(vla-get-PaperSpace
     (vla-get-ActiveDocument
       (vlax-get-acad-object)))
nVp(vla-AddPViewport pSp
     (vlax-3D-point '(0.0 0.0 0.0))
     200.0 200.0)
); end setq
 ); end of  c:addvp