[求助]用以下程序,用不了

kkk3kkk · 发表于 2009-9-5 23:58:00

(setq en(entmake '((0 . "LAYER") (2 . "axis1") (70 . 0) (62 . 1) (6 . "CENTER"))))(ENTMOD EN)
(setq en(entmake '((0 . "LAYER") (2 . "Zaxis1") (70 . 0) (62 . 3) (6 . "Continuous"))))(ENTMOD EN)
(setq en(entmake '((0 . "LAYER") (2 . "Defpoints") (70 . 0) (62 . 7) (6 . "Continuous"))))(ENTMOD EN)
(setq en(entmake '((0 . "LAYER") (2 . "axis2") (70 . 0) (62 . 1) (6 . "CENTER"))))(ENTMOD EN)
(setq en(entmake '((0 . "LAYER") (2 . "Zaxis2") (70 . 0) (62 . 3) (6 . "Continuous"))))(ENTMOD EN)
(setq en(entmake '((0 . "LAYER") (2 . "axis3") (70 . 0) (62 . 1) (6 . "CENTER"))))(ENTMOD EN)
(setq en(entmake '((0 . "LAYER") (2 . "Zaxis3") (70 . 0) (62 . 3) (6 . "Continuous"))))(ENTMOD EN)
(setq en(entmake '((0 . "LAYER") (2 . "axis4") (70 . 0) (62 . 1) (6 . "CENTER"))))(ENTMOD EN)
(setq en(entmake '((0 . "LAYER") (2 . "Zaxis4") (70 . 0) (62 . 3) (6 . "Continuous"))))(ENTMOD EN)
(setq en(entmake '((0 . "LAYER") (2 . "axis5") (70 . 0) (62 . 1) (6 . "CENTER"))))(ENTMOD EN)

(entmake '((0 . "LAYER") (2 . "axis1") (70 . 0) (62 . 1) (6 . "CENTER")))
(entmake '((0 . "LAYER") (2 . "Zaxis1") (70 . 0) (62 . 3) (6 . "Continuous")))
(entmake '((0 . "LAYER") (2 . "Defpoints") (70 . 0) (62 . 7) (6 . "Continuous")))
(entmake '((0 . "LAYER") (2 . "axis2") (70 . 0) (62 . 1) (6 . "CENTER")))
(entmake '((0 . "LAYER") (2 . "Zaxis2") (70 . 0) (62 . 3) (6 . "Continuous")))
(entmake '((0 . "LAYER") (2 . "axis3") (70 . 0) (62 . 1) (6 . "CENTER")))
(entmake '((0 . "LAYER") (2 . "Zaxis3") (70 . 0) (62 . 3) (6 . "Continuous")))
(entmake '((0 . "LAYER") (2 . "axis4") (70 . 0) (62 . 1) (6 . "CENTER")))
(entmake '((0 . "LAYER") (2 . "Zaxis4") (70 . 0) (62 . 3) (6 . "Continuous")))
(entmake '((0 . "LAYER") (2 . "axis5") (70 . 0) (62 . 1) (6 . "CENTER")))

(entmake '((0 . "DIMENSION") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "Zaxis1") (100 . "AcDbDimension") (10 18000.0 -4000.0 0.0) (11 16500.0 -4000.0 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 3000.0) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 . "Standard") (100 . "AcDbAlignedDimension") (13 15000.0 -1500.0 0.0) (14 18000.0 -1500.0 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0) (100 . "AcDbRotatedDimension")))
(entmake '((0 . "DIMENSION") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "Zaxis1") (100 . "AcDbDimension") (10 15000.0 -4000.0 0.0) (11 13500.0 -4000.0 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 3000.0) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 . "Standard") (100 . "AcDbAlignedDimension") (13 12000.0 -1500.0 0.0) (14 15000.0 -1500.0 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0) (100 . "AcDbRotatedDimension")))
(entmake '((0 . "DIMENSION") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "Zaxis1") (100 . "AcDbDimension") (10 12000.0 -4000.0 0.0) (11 10500.0 -4000.0 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 3000.0) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 . "Standard") (100 . "AcDbAlignedDimension") (13 9000.0 -1500.0 0.0) (14 12000.0 -1500.0 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0) (100 . "AcDbRotatedDimension")))
(entmake '((0 . "DIMENSION") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "Zaxis1") (100 . "AcDbDimension") (10 9000.0 -4000.0 0.0) (11 7500.0 -4000.0 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 3000.0) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 . "Standard") (100 . "AcDbAlignedDimension") (13 6000.0 -1500.0 0.0) (14 9000.0 -1500.0 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0) (100 . "AcDbRotatedDimension")))
(entmake '((0 . "DIMENSION") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "Zaxis1") (100 . "AcDbDimension") (10 6000.0 -4000.0 0.0) (11 4500.0 -4000.0 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 3000.000000000000) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 . "Standard") (100 . "AcDbAlignedDimension") (13 3000.000000000000 -1500.0 0.0) (14 6000.0 -1500.0 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0) (100 . "AcDbRotatedDimension")))
(entmake '((0 . "DIMENSION") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "Zaxis1") (100 . "AcDbDimension") (10 3000.000000000000 -4000.0 0.0) (11 1499.999999999999 -4000.0 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 3000.0) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 . "Standard") (100 . "AcDbAlignedDimension") (13 -0.000000000000276 -1500.0 0.0) (14 3000.000000000000 -1500.0 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0) (100 . "AcDbRotatedDimension")))
;;以上不可用

;以下可用

(entmake '((0 . "LINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "axis1") (100 . "AcDbLine") (10 -1499.999999999998 23100.0 0.0) (11 19500.0 23100.0 0.0) (210 0.0 0.0 1.0)))
(entmake '((0 . "LINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "axis1") (100 . "AcDbLine") (10 -1499.999999999999 19800.0 0.0) (11 19500.0 19800.0 0.0) (210 0.0 0.0 1.0)))
(entmake '((0 . "LINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "axis1") (100 . "AcDbLine") (10 -1499.999999999999 16500.0 0.0) (11 19500.0 16500.0 0.0) (210 0.0 0.0 1.0)))
(entmake '((0 . "LINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "axis1") (100 . "AcDbLine") (10 -1499.999999999999 13200.0 0.0) (11 19500.0 13200.0 0.0) (210 0.0 0.0 1.0)))
(entmake '((0 . "LINE") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "axis1") (100 . "AcDbLine") (10 -1499.999999999999 9900.0 0.0) (11 19500.0 9900.0 0.0) (210 0.0 0.0 1.0)))

muwind · 发表于 2009-9-6 01:21:00

以下来自 http://bbs.mjtd.com/forum.php?mod=viewthread&tid=70098

(defun c:f4 ()
(setq name (getstring "\n请输入图层名:"))
(entmake (list '(0 . "LAYER")
        '(100 . "AcDbSymbolTableRecord")
        '(100 . "AcDbLayerTableRecord")
        '(70 . 0)
        '(6 . "Continuous")
        (cons 2 name)
        )
)
)

请参考修改你的代码

kkk3kkk · 发表于 2009-9-6 12:15:00

(entmake '((0 . "LAYER") (2 . "axis5") (70 . 0) (62 . 1) (6 . "CENTER")))

(entmake '((0 . "DIMENSION") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "Zaxis1") (100 . "AcDbDimension") (10 3000.000000000000 -4000.0 0.0) (11 1499.999999999999 -4000.0 0.0) (12 0.0 0.0 0.0) (70 . 32) (1 . "") (71 . 5) (72 . 1) (41 . 1.0) (42 . 3000.0) (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 . "Standard") (100 . "AcDbAlignedDimension") (13 -0.000000000000276 -1500.0 0.0) (14 3000.000000000000 -1500.0 0.0) (15 0.0 0.0 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0) (100 . "AcDbRotatedDimension")))

这类写法有错吗???

一顶这类写法要怎样写才行

muwind · 发表于 2009-9-7 00:26:00

关于图层等符号表类用ENTMAKE生成在楼上已经给出例子，你应该看出你的组码里少了些东西，更多的符号表类例子请见

http://hi.baidu.com/123523058/blog/item/d30581f8ecf0f309d8f9fd61.html

用ENTMAKE尺寸标注在晓东那边有人讨论过

http://www.xdcad.net/forum/showthread.php?postid=3307536

账号		自动登录	找回密码
密码			注册