请求帮忙，工作需求可否达到

lzg8877

     因为每天都要用到此图 希望将此实体转变成代码 要用时输代码转出实体。也同时能学到方法。恳求帮忙
              

langjs

(defun c:aa ( / lst lst1 lst2 name pt x)
  (setq lst1 '(((0 . "LINE") (8 . "图层2")
          (62 . 1)
          (10 0.0 -63.8801 0.0)
          (11 0.0 63.8801 0.0)
         )
         ((0 . "LINE") (8 . "图层2")
          (62 . 1)
          (10 -63.8801 0.0)
          (11 63.8801 0.0)
         )
         ((0 . "LWPOLYLINE") (100 . "AcDbEntity")
          (67 . 0)
          (8 . "01")
          (100 . "AcDbPolyline")
          (90 . 10)
          (70 . 1)
          (43 . 0.0)
          (38 . 0.0)
          (39 . 0.0)
          (10 36.4558 16.6569)
          (10 25.4558 5.65685)
          (10 25.4558 -5.65685)
          (10 36.4558 -16.6569)
          (10 42.1127 -19.0)
          (10 45.6946 -19.0)
          (10 53.4724 -12.8723)
          (10 53.4724 12.8723)
          (10 45.6946 19.0)
          (10 42.1127 19.0)
         )
         ((0 . "LWPOLYLINE") (100 . "AcDbEntity")
          (8 . "01")
          (100 . "AcDbPolyline")
          (90 . 8)
          (70 . 1)
          (43 . 0.0)
          (38 . 0.0)
          (39 . 0.0)
          (10 -8.37158 14.5)
          (10 -1.44338 10.5)
          (10 1.44338 10.5)
          (10 8.37158 14.5)
          (10 18.4752 32.0)
          (10 11.547 44.0)
          (10 -11.547 44.0)
          (10 -18.4752 32.0)
         )
         ((0 . "LWPOLYLINE") (100 . "AcDbEntity")
          (8 . "01")
          (62 . 3)
          (6 . "DASHED")
          (48 . 5.0)
          (100 . "AcDbPolyline")
          (90 . 3)
          (70 . 0)
          (43 . 0.0)
          (38 . 0.0)
          (39 . 0.0)
          (10 19.0526 0.0)
          (10 29.7176 18.4724)
          (10 40.078 21.6988)
         )
         ((0 . "LWPOLYLINE") (100 . "AcDbEntity")
          (8 . "01")
          (62 . 3)
          (6 . "DASHED")
          (48 . 5.0)
          (100 . "AcDbPolyline")
          (90 . 2)
          (70 . 0)
          (43 . 0.0)
          (38 . 0.0)
          (39 . 0.0)
          (10 47.9778 18.6673)
          (10 18.1664 40.4927)
         )
         ((0 . "LINE") (100 . "AcDbEntity")
          (8 . "01")
          (62 . 3)
          (6 . "DASHED")
          (48 . 5.0)
          (100 . "AcDbLine")
          (10 14.4338 0.0)
          (11 27.0525 21.8563 0.0)
          (210 0.0 0.0 1.0)
         )
         ((0 . "ARC") (100 . "AcDbEntity")
          (8 . "01")
          (62 . 3)
          (6 . "DASHED")
          (48 . 5.0)
          (100 . "AcDbCircle")
          (10 20.1243 25.8563 0.0)
          (40 . 8.0)
          (210 0.0 0.0 1.0)
          (100 . "AcDbArc")
          (50 . 5.75959)
          (51 . 0.80755)
         )
        )
  )
  (setq lst2 '(((0 . "LINE") (8 . "图层2")
          (62 . 1)
          (10 0.0 -63.8801 0.0)
          (11 0.0 63.8801 0.0)
         )
         ((0 . "LINE") (8 . "图层2")
          (62 . 1)
          (10 -63.8801 0.0 0.0)
          (11 63.8801 0.0 0.0)
         )
         ((0 . "LINE") (8 . "0")
          (62 . 1)
          (10 0.0 0.0 0.0)
          (11 40.1871 40.1871 0.0)
         )
         ((0 . "LWPOLYLINE") (100 . "AcDbEntity")
          (8 . "01")
          (100 . "AcDbPolyline")
          (90 . 10)
          (70 . 1)
          (43 . 0.0)
          (38 . 0.0)
          (39 . 0.0)
          (10 -12.0 52.0)
          (10 12.0 52.0)
          (10 20.0 44.0)
          (10 20.0 37.4558)
          (10 17.6569 31.799)
          (10 5.65685 19.799)
          (10 -5.65685 19.799)
          (10 -17.6569 31.799)
          (10 -20.0 37.4558)
          (10 -20.0 44.0)
         )
         ((0 . "LWPOLYLINE") (100 . "AcDbEntity")
          (8 . "01")
          (100 . "AcDbPolyline")
          (90 . 10)
          (70 . 1)
          (43 . 0.0)
          (38 . 0.0)
          (39 . 0.0)
          (10 52.0 -12.0)
          (10 52.0 12.0)
          (10 44.0 20.0)
          (10 37.4558 20.0)
          (10 31.799 17.6569)
          (10 19.799 5.65685)
          (10 19.799 -5.65685)
          (10 31.799 -17.6569)
          (10 37.4558 -20.0)
          (10 44.0 -20.0)
         )
         ((0 . "LWPOLYLINE") (100 . "AcDbEntity")
          (8 . "01")
          (62 . 3)
          (6 . "DASHED")
          (48 . 5.0)
          (100 . "AcDbPolyline")
          (90 . 3)
          (70 . 0)
          (43 . 0.0)
          (38 . 0.0)
          (39 . 0.0)
          (10 36.8789 25.5316)
          (10 27.1379 24.3095)
          (10 2.82843 0.0)
         )
         ((0 . "LWPOLYLINE") (100 . "AcDbEntity")
          (8 . "01")
          (62 . 3)
          (6 . "DASHED")
          (48 . 5.0)
          (100 . "AcDbPolyline")
          (90 . 4)
          (70 . 0)
          (43 . 0.0)
          (38 . 0.0)
          (39 . 0.0)
          (10 18.879 48.0841)
          (10 28.7177 31.5125)
          (10 31.5125 28.7177)
          (10 48.0841 18.879)
         )
         ((0 . "LWPOLYLINE") (100 . "AcDbEntity")
          (8 . "01")
          (62 . 3)
          (6 . "DASHED")
          (48 . 5.0)
          (100 . "AcDbPolyline")
          (90 . 3)
          (70 . 0)
          (43 . 0.0)
          (38 . 0.0)
          (39 . 0.0)
          (10 0.0 2.82843)
          (10 24.3095 27.1379)
          (10 25.5316 36.8789)
         )
        )
  )
  (setq lst (if (= (getint "\n请输入；1(方案一)，其它(方案二)") 1) lst1  lst2 )
        pt (getpoint "\n指定插入点：")
  )
  (entmake (list '(0 . "block") '(2 . "*U") '(70 . 1) (cons 10 '(0.0 0.0))))
  (foreach x lst
    (entmake x)
  )
  (setq name (entmake '((0 . "ENDBLK"))))
  (entmake (list '(0 . "INSERT") (cons 2 name) (cons 10 pt)))
  (command "explode" (entlast))
  (princ)
)

langjs

还有一个方法把图纸存储在搜索路径，用插入块的方式插入

伪书虫86

langjs 发表于 2014-9-4 09:48
还有一个方法把图纸存储在搜索路径，用插入块的方式插入

相对路径怎么写啊？
我想在放lsp的那个文件夹里建一个文件夹留着专门放块

maiko

伪书虫86 发表于 2014-9-4 09:59
相对路径怎么写啊？
我想在放lsp的那个文件夹里建一个文件夹留着专门放块

(initget 7 "1 2 3 4")
(setq kd (getkword "\n 输入:\n[block1(1)/block2(2)/block3(3)/block4(4)]:"))
(Command "_.-INSERT" kd pt "" "" "")

机械工程师

做成块，插入。

langjs

这个方法简单一点

xyp1964

2. (defun c:tt () (command "insert" "实体转换" pause 1 1 0))

(defun c:tt () (command "insert" "实体转换" pause 1 1 0))