画花圃hp.lsp..选中一条直线，等间距（自定义）批量画花圃单个符号。

zhb236623

1. (defun c:hp()     ;;;mjtd.com
   
2. (setvar "CMDECHO" 0)
   
3. (setq blc_cass7 (getvar "userr1"))
   
4. (cond  (  ( = blc_cass7 500)
   
5.            (princ "比例尺,,,,,为500")
   
6.            (setq nn 0.5)
   
7.          )
   
8.    
   
9.    
   
10.       (  ( = blc_cass7 200)
    
11.      (princ "比例尺,,,,,为200")
    
12.            (setq nn 0.2)
    
13.    )
    
14.    
    
15.    
    
16.    (  ( = blc_cass7 1000)
    
17.              (setq nn 1)
    
18.      (princ)
    
19.    )
    
20.    
    
21.   (  (and ( /= blc_cass7 500)  ( /= blc_cass7 200)  ( /= blc_cass7 1000))
    
22.     (princ "比例尺不为1：500，1：200，1：1000请检查比例尺设置，程序将退出。")
    
23.     (exit)
    
24.   )
    
25. (princ "程序正常运行")
    
26. (princ)
    
27. )
    
28. (if (= (tblobjname "layer" "ZBTZ_tmp") nil)
    
29. (progn
    
30.   (princ "图层ZBTZ_tmp不存在，新建图层ZBTZ_tmp完成，导入数据将存放在ZBTZ_tmp层")
    
31.   (command ".layer" "n" "ZBTZ_tmp" "s" "ZBTZ_tmp" "")
    
32.   
    
33. )
    
34. (progn
    
35. (command "layer" "s" "ZBTZ_tmp" "")
    
36.   (princ "ZBTZ_tmp图层已存在，导入数据将存放在ZBTZ_tmp层，完成导入")
    
37. )
    
38. )
    
39. 
    
40. (setq s1 (ssget '((0 . "LWPOLYLINE"))))
    
41. (command "measure" s1 10)
    
42. (if (setq ss (ssget "P" '((0 . "POINT"))))
    
43. (progn
    
44.   (setq i 1)
    
45.   (setq pt (cdr(assoc 10 (entget(ssname ss 0)))))
    
46.   (command "insert" "gc124" pt nn nn "0" )
    
47.   (repeat (1- (sslength ss))
    
48.    (setq pt (cdr(assoc 10 (entget(ssname ss i)))) i (1+ i))
    
49.    (command "insert" "gc124" pt nn nn "0" )
    
50.   )
    
51.    (princ)
    
52. )
    
53. )
    
54. (command "erase" ss "")
    
55. 
    
56. (setvar "CMDECHO" 1)
    
57. (princ)
    
58. 
    
59. )

复制代码

附件为完善版本，有需要的可以下载。。。

heart

支持一下

326921162

支持支持。。。。。

zhb236623

好东东没人要，自己顶下。

yuduo520

支持下.....................................................................

xwq_69

不是没人要 是CASS中有这个功能

zhb236623

这个功能就是类似CASS功能，也是基于CASS 的。
比如要在一条细长的道路中间的花圃等间距画单个花圃符号的号，就比CASS的好用。

xwq_69

在CASS中的细长地类 一般选择 沿直线充填 比较方便

wmjdd

感谢楼主的无私奉献！

yuanziyou

楼主发了不少小程序