[求助]：求助虚线的画法？

民工

曾经听说有人是画一根长线，然后再剪断成虚线
我觉得用短线直接阵列方便一点

水是这样灌溉的

最初由 民工 发布
[B]曾经听说有人是画一根长线，然后再剪断成虚线
我觉得用短线直接阵列方便一点 [/B]

不算最方便，
最方便的是买一台供墨不足的打印机，

水是这样灌溉的

把打印机往地上撕一下或用榔头敲一下

yi.gao

采用缝纫机的原理直接发明一个专用的虚线打印机

TLHMQH

最初由 民工 发布
[B]曾经听说有人是画一根长线，然后再剪断成虚线
我觉得用短线直接阵列方便一点  [/B]

最初由 水是这样灌溉的 发布
[B]不算最方便，
最方便的是买一台供墨不足的打印机， [/B]

最初由 水是这样灌溉的 发布
[B]把打印机往地上撕一下或用榔头敲一下[/B]

太深奥了，请祥解。

highflybird

最初由 民工 发布
[B]曾经听说有人是画一根长线，然后再剪断成虚线
我觉得用短线直接阵列方便一点 [/B]

是个不错的主意*-*7
但是如果编成程序更方便。

2. 
   
3. (defun C:L250 (/ i pt)
   
4.   (setq i 0)
   
5.   (if "我要虚线这么长,实线这么短"
   
6.     (repeat 250
   
7.       (setq pt (polar '(0 0) 0 (* 3 i 250)))
   
8.       (command ".line" pt "@250,0" "")
   
9.       (setq i (1+ i))
   
10.       (princ 250)
    
11.     )
    
12.   )
    
13. )
    

<br /> (defun C:L250 (/ i pt)<br />   (setq i 0)<br />   (if "我要虚线这么长,实线这么短"<br />     (repeat 250<br />       (setq pt (polar '(0 0) 0 (* 3 i 250)))<br />       (command ".line" pt "@250,0" "")<br />       (setq i (1+ i))<br />       (princ 250)<br />     )<br />   )<br /> )<br />

是可运行的程序哦！运行命令L250.

highflybird

最初由 民工 发布
[B]曾经听说有人是画一根长线，然后再剪断成虚线
我觉得用短线直接阵列方便一点 [/B]

是个不错的主意*-*7
但是如果编成程序更方便。

2. 
   
3. (defun C:L250 (/ i pt)
   
4.   (setq i 0)
   
5.   (if "我要虚线这么长,实线这么短"
   
6.     (repeat 250
   
7.       (setq pt (polar '(0 0) 0 (* 3 i 250)))
   
8.       (command ".line" pt "@250,0" "")
   
9.       (setq i (1+ i))
   
10.       (princ 250)
    
11.     )
    
12.   )
    
13. )
    

<br /> (defun C:L250 (/ i pt)<br />   (setq i 0)<br />   (if "我要虚线这么长,实线这么短"<br />     (repeat 250<br />       (setq pt (polar '(0 0) 0 (* 3 i 250)))<br />       (command ".line" pt "@250,0" "")<br />       (setq i (1+ i))<br />       (princ 250)<br />     )<br />   )<br /> )<br />

是可运行的程序哦！运行命令L250.

hubin8157

目前来说还没有可以自定义的线型

yi.gao

目前来说还没有可以自定义的线型

wws8088

可以直接选用线型，然后调整线型比例就可以了。