怎么用lisp加载线型

animal513

怎么用lisp加载线型啊？就是加载线型的程序怎么写？谢谢，麻烦知道的人

phoenixdjq

(command "-linetype" ........)

后面的自己写吧

animal513

其实我也知道要用这个命令，但就是后面的不知道要怎么写。

wandong

我觉得应该是建立图层并将该图层置为当前图层比较实用。如建立图层名为Center的中心线层（点画线，黄色）：

(if (= (tblobjname "LAYER" "Center") nil)
(command "_layer" "n" "Center" "s" "Center" "l" "center" "Center" "c" "yellow" "Center" "")
(setvar "clayer" "Center")
)

wltools

是要类似的功能吗? 使用前先给定wlsamdir-wl

2. ;填加包含字符串的线形 作者 懒虫 应用于 StrAModel 一个利用AutoCAD输入复杂结构的计算模型的工具
3. ;name 线形名称
4. ;str 线形内字符串
5. ;style 字符串用的文字样式
6.   (defun add_ltype (name str style / box box1 lis fil linetypes_Sel)
7. ;(setq name "SayzEz" style "wltools")
8.     (if (null (tblsearch "ltype" name))
9.       (progn
10. ;(alert (vl-princ-to-string name))
11. (if (tblsearch "style" style)
12.    (setq lis (list (cons 7 style)))
13.    (setq lis   (list '(7 . "STANDARD"))
14.   style "standard"
15.    )
16. )
17. (setq box (textbox
18.       (append (list (cons 1 str) '(40 . 2) '(41 . 1) '(10 0.0 0.0 0.0))
19.        lis
20.       )
21.     )
22. )
23. (setq box1 (textbox
24.        (append (list (cons 1 "<->") '(40 . 2) '(41 . 1) '(10 0.0 0.0 0.0))
25.         lis
26.        )
27.      )
28. )
29. (setq fil (open (strcat wlsamdir-wl "temltype.lin") "w"))
30. (princ ";;这是临时线型文件，会被程序随时修改，不要在此定义自己的线型\n"
31.         fil
32. )
33. (princ "*" fil)
34. (princ name fil)
35. (princ "," fil)
36. ;(princ name)
37. (repeat 3 (princ (strcat "--" str "--") fil))
38. (princ "\n" fil)
39. (princ "A,3,-.1,[" fil)
40. (princ (strcat """ str "",") fil)
41. (princ style fil)
42. (princ ",S=2,R=0.0,X=" fil)
43. (princ (rtos (* -1.0 (+ 0.1 (caar box))) 2 3) fil)
44. (princ ",Y=" fil)
45. (princ (rtos (* -0.5 (+ (cadadr box1) (cadar box1))) 2 3)
46.         fil
47. )
48. (princ "]," fil)
49. (princ (rtos (- (caar box) (caadr box) -0.1) 2 3) fil)
50. (close fil)
51. (setq linetypes_Sel (vla-get-Linetypes
52.          (vla-get-ActiveDocument (vlax-get-acad-object))
53.        )
54. )
55. (vlax-invoke-method linetypes_Sel
56.        'Load
57.        name
58.        (strcat wlsamdir-wl "temltype.lin")
59. )
60.       )
61.     )
62.   )

;填加包含字符串的线形 作者 懒虫 应用于 StrAModel 一个利用AutoCAD输入复杂结构的计算模型的工具 ;name 线形名称 ;str 线形内字符串 ;style 字符串用的文字样式   (defun add_ltype (name str style / box box1 lis fil linetypes_Sel) ;(setq name "SayzEz" style "wltools")     (if (null (tblsearch "ltype" name))       (progn ;(alert (vl-princ-to-string name)) (if (tblsearch "style" style)    (setq lis (list (cons 7 style)))    (setq lis   (list '(7 . "STANDARD"))   style "standard"    ) ) (setq box (textbox       (append (list (cons 1 str) '(40 . 2) '(41 . 1) '(10 0.0 0.0 0.0))        lis       )     ) ) (setq box1 (textbox        (append (list (cons 1 "<->") '(40 . 2) '(41 . 1) '(10 0.0 0.0 0.0))         lis        )      ) ) (setq fil (open (strcat wlsamdir-wl "temltype.lin") "w")) (princ ";;这是临时线型文件，会被程序随时修改，不要在此定义自己的线型\n"         fil ) (princ "*" fil) (princ name fil) (princ "," fil) ;(princ name) (repeat 3 (princ (strcat "--" str "--") fil)) (princ "\n" fil) (princ "A,3,-.1,[" fil) (princ (strcat """ str "",") fil) (princ style fil) (princ ",S=2,R=0.0,X=" fil) (princ (rtos (* -1.0 (+ 0.1 (caar box))) 2 3) fil) (princ ",Y=" fil) (princ (rtos (* -0.5 (+ (cadadr box1) (cadar box1))) 2 3)         fil ) (princ "]," fil) (princ (rtos (- (caar box) (caadr box) -0.1) 2 3) fil) (close fil) (setq linetypes_Sel (vla-get-Linetypes          (vla-get-ActiveDocument (vlax-get-acad-object))        ) ) (vlax-invoke-method linetypes_Sel        'Load        name        (strcat wlsamdir-wl "temltype.lin") )       )     )   )

animal513

我要实现在功能就是wltools所提供的，没想到要达到这么小小一个功能要写这么一大堆程序。