社区 › Auto Lisp › 使用entmake的新ucs

Hmm.. 发表于 2022-7-6 17:26:32

使用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)))

 
未制作新ucs。。

VovKa 发表于 2022-7-6 17:37:26

(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)
   )
)

Hmm.. 发表于 2022-7-6 17:42:25

哦，是的。。太酷了！！！Thanx。。

Hmm.. 发表于 2022-7-6 17:45:50

您还知道要使用entmake创建视口，必须在下面的列表中进行哪些更改吗？
 

((-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))

bkxd98 发表于 2022-7-6 17:51:34

“无法使用entmake创建视口对象”-entmake功能的AutoCAD帮助。

Hmm.. 发表于 2022-7-6 17:54:37

隐马尔可夫模型。。。太糟糕了。。

ASMI 发表于 2022-7-6 18:01:30

创建图纸空间视口的简短示例：
 
(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 ofc:addvp
 
创建中心位于0,0,0点的视口200.0 X 200.0。

Hmm.. 发表于 2022-7-6 18:08:40

这在模型空间中也可能吗？

Hmm.. 发表于 2022-7-6 18:18:42

哦，太好了！
你解决了我最大的问题之一！
祝你好运

ASMI 发表于 2022-7-6 18:21:21

Lūdzu。导航par ko。

查看完整版本: 使用entmake的新ucs