***** 快速好用 自定 線型文字編輯器 *****

yangchao2005090

请问一下，这个线型编辑器生成的线型文件lin文件存放在哪个地方啊

lee50310

yangchao2005090 发表于 2021-8-19 09:16
请问一下，这个线型编辑器生成的线型文件lin文件存放在哪个地方啊

如果你設定一個新線型 則新線型格式 會暫存在 程式的變數 ltdef  內

例: 查看變數內容     可在cad 的 Connand: !ltdef  按Enter

回應: "\n*USER,--- - ---BE--- - ---BE--- - ---BE--- - ---\nA,4.375,-1.25,1.25,-1.25,4.375,-1.91467,[\"BE\",Standard,S=1.5,R=0.0,X=-1.26467,Y=-0.75],-1.91467"

yangchao2005090

您好，这个还是出错，能否帮忙修改一下，代码里面有来源链接

aihuyujian

这真是个好东西  

lee50310

yangchao2005090 发表于 2021-8-19 20:09
您好，这个还是出错，能否帮忙修改一下，代码里面有来源链接

原程式錯一個地方及少了一個函數

幫你修正補齊,這樣就可以了

yangchao2005090

lee50310 发表于 2021-8-20 11:49
原程式錯一個地方及少了一個函數

幫你修正補齊,這樣就可以了

谢谢，但好像还是不能用

yangchao2005090

2. ;;http://bbs.mjtd.com/thread-183496-1-1.html
   
3. (defun c:tt (/ cmde lst p1 ss ss1)
   
4.         (setq cmde (getvar "CMDECHO"))
   
5.         (setvar "CMDECHO" 0)
   
6.         (prompt "\n框选需要合并的表格：")
   
7.         (while (setq ss (ssget))
   
8.                 (setq lst (reverse (wyb-get-box ss)))
   
9.                 (setq p1 (caar lst) lst (cdr lst))
   
10.                 (if (/= lst nil)
    
11.                         (foreach x lst
    
12.                                 (setq ss1 (ssget "w" (car x) (cadr x)))
    
13.                                 (vl-cmdf "_.move" ss1 "" "non" (list (caar x) (cadadr x)) "non" p1)
    
14.                                 (setq p1 (polar p1 (* 1.5 pi) (distance (car x) (list (caar x) (cadadr x)))))
    
15.                         )
    
16.                         (prompt "\n没有需要合并的表格。")
    
17.                 )
    
18.                 (prompt "\n框选需要合并的表格：")
    
19.         )
    
20.         (setvar "CMDECHO" cmde)
    
21.         (prompt "\n表格合并完成！")
    
22.         (princ)
    
23. )
    
24. 
    
25. ;|= 4.2. 取得图元外矩形框
    
26. ;@== (wyb-get-box ename)
    
27. ;#== return: [plst]'((x1 y1 z1)_min (x2 y2 z2)_max)
    
28. ;ver:
    
29. ;    [1.0] 明经 Longxin, Gu_xl&邹锋
    
30. ;    [1.1] by woyb 20151010
    
31. ;    [1.1.1] ADD: 释放obj by woyb 20180730
    
32. ;====================|;
    
33. (defun wyb-get-box (@e / p1 p2 p3 p4 obj lst tmp)
    
34.     (setq obj (vlax-ename->vla-object @e))
    
35.     (if (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list obj 'p1 'p3))))
    
36.         (progn
    
37.             (setq p1 (vlax-safearray->list p1)
    
38.                 p3 (vlax-safearray->list p3)
    
39.                 p2 (list (car p1) (cadr p3) (caddr p1))
    
40.                 p4 (list (car p3) (cadr p1) (caddr p1))
    
41.             )
    
42.             (if (= "SPLINE" (cdr (assoc 0 (entget @e))))
    
43.                 (progn
    
44.                     (setq lst
    
45.                         (mapcar '(lambda  (a b) (vlax-curve-getClosestPointToProjection @e a b t))
    
46.                             (list p1 p2 p3 p4)
    
47.                             '((1.0 0 0) (0 -1.0 0) (-1.0 0 0) (0 1.0 0))
    
48.                         )
    
49.                     )
    
50.                     (setq tmp
    
51.                         (list
    
52.                             (apply 'mapcar (cons 'min lst))
    
53.                             (apply 'mapcar (cons 'max lst))
    
54.                         )
    
55.                     )
    
56.                 )
    
57.                 (setq tmp (list p1 p3))
    
58.             )
    
59.         )
    
60.         (setq tmp nil)
    
61.     )
    
62.     (vlax-release-object obj)
    
63.     tmp
    
64. )

;;http://bbs.mjtd.com/thread-183496-1-1.html<br /> (defun c:tt (/ cmde lst p1 ss ss1)<br />         (setq cmde (getvar "CMDECHO"))<br />         (setvar "CMDECHO" 0)<br />         (prompt "\n框选需要合并的表格：")<br />         (while (setq ss (ssget))<br />                 (setq lst (reverse (wyb-get-box ss)))<br />                 (setq p1 (caar lst) lst (cdr lst))<br />                 (if (/= lst nil)<br />                         (foreach x lst<br />                                 (setq ss1 (ssget "w" (car x) (cadr x)))<br />                                 (vl-cmdf "_.move" ss1 "" "non" (list (caar x) (cadadr x)) "non" p1)<br />                                 (setq p1 (polar p1 (* 1.5 pi) (distance (car x) (list (caar x) (cadadr x)))))<br />                         )<br />                         (prompt "\n没有需要合并的表格。")<br />                 )<br />                 (prompt "\n框选需要合并的表格：")<br />         )<br />         (setvar "CMDECHO" cmde)<br />         (prompt "\n表格合并完成！")<br />         (princ)<br /> )<br /> <br /> ;|= 4.2. 取得图元外矩形框<br /> ;@== (wyb-get-box ename)<br /> ;#== return: [plst]'((x1 y1 z1)_min (x2 y2 z2)_max)<br /> ;ver: <br /> ;    [1.0] 明经 Longxin, Gu_xl&邹锋<br /> ;    [1.1] by woyb 20151010<br /> ;    [1.1.1] ADD: 释放obj by woyb 20180730<br /> ;====================|;<br /> (defun wyb-get-box (@e / p1 p2 p3 p4 obj lst tmp)<br />     (setq obj (vlax-ename->vla-object @e))<br />     (if (not (vl-catch-all-error-p (vl-catch-all-apply 'vla-getboundingbox (list obj 'p1 'p3))))<br />         (progn<br />             (setq p1 (vlax-safearray->list p1)<br />                 p3 (vlax-safearray->list p3)<br />                 p2 (list (car p1) (cadr p3) (caddr p1))<br />                 p4 (list (car p3) (cadr p1) (caddr p1))<br />             )<br />             (if (= "SPLINE" (cdr (assoc 0 (entget @e))))<br />                 (progn<br />                     (setq lst<br />                         (mapcar '(lambda  (a b) (vlax-curve-getClosestPointToProjection @e a b t))<br />                             (list p1 p2 p3 p4)<br />                             '((1.0 0 0) (0 -1.0 0) (-1.0 0 0) (0 1.0 0))<br />                         )<br />                     )<br />                     (setq tmp <br />                         (list<br />                             (apply 'mapcar (cons 'min lst))<br />                             (apply 'mapcar (cons 'max lst))<br />                         )<br />                     )<br />                 )<br />                 (setq tmp (list p1 p3))<br />             )<br />         )<br />         (setq tmp nil)<br />     )<br />     (vlax-release-object obj)<br />     tmp<br /> )

lee50310

yangchao2005090 发表于 2021-8-20 14:54
谢谢，但好像还是不能用

我下載 11-new.lsp  在cad2018 測試 皆 ok

你測試時要用原版主 ,所提供的 表格圖檔來測試 才能正確合併
不能用一般的表格圖檔測試 會失敗!
因為原版主的表格圖檔每一個表圖框格是獨立 (你可以用滑鼠點點看便知)
跟一般的表格是不一樣的

yangchao2005090

lee50310 发表于 2021-8-20 18:24
我下載 11-new.lsp  在cad2018繁體版  測試 皆 ok

你測試時要用原版主 ,所提供的 表格圖檔來測試  ...

哦，明白了，我是说我的表格怎么不行呢，谢谢哈

yangchao2005090

还想请您帮个忙，看这个能不能帮忙加一个文字样式啊，比如文字样式名为ZB坐标