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

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

以下来自 <a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=70098">http://bbs.mjtd.com/forum.php?mod=viewthread&tid=70098</a> (defun c:f4 () (setq name (getstring "<a href="file://\\n">\n</a>请输入图层名:")) (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

<pre class="prog_in_end">关于图层等符号表类用ENTMAKE生成在楼上已经给出例子，你应该看出你的组码里少了些东西，更多的符号表类例子请见</pre><pre class="prog_in_end"><a href="http://hi.baidu.com/123523058/blog/item/d30581f8ecf0f309d8f9fd61.html">http://hi.baidu.com/123523058/blog/item/d30581f8ecf0f309d8f9fd61.html</a></pre><pre class="prog_in_end">用ENTMAKE尺寸标注在晓东那边有人讨论过</pre><pre class="prog_in_end"><a href="http://www.xdcad.net/forum/showthread.php?postid=3307536">http://www.xdcad.net/forum/showthread.php?postid=3307536</a></pre>

页: [1]

明经CAD社区's Archiver

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