设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › 此程序有点小问题，大师们能帮忙修正吗？
返回列表 发新帖
查看: 1533|回复: 7

[提问] 此程序有点小问题，大师们能帮忙修正吗？

[复制链接]
lucas_3333
发表于 2014-3-4 15:25:00 | 显示全部楼层 |阅读模式
本帖最后由 lucas_3333 于 2014-3-4 15:43 编辑

不管命令是正确结束，还是错误，都会出现：
line 指定第一点:
命令: DDBRUSH 未知命令“DDBRUSH”。按 F1 查看帮助。
命令: nil

另外里面有个选项是“尺寸”不知道怎么用。
上传源文件，请大师们帮忙看看，问题出在哪？

源文件, 程序

本帖子中包含更多资源

您需要 登录 才可以下载或查看，没有账号？注册

x
"觉得好，就打赏"
打赏
还没有人打赏，支持一下

相关帖子
回复

使用道具 举报

Andyhon
发表于 2014-3-4 18:38:56 | 显示全部楼层
考量这句呗
(command "line" '(0,0) "") ;此语句是为了回退(undo)的需要而编写，即一次只能回退一条操作。
回复 支持 反对

使用道具 举报

edata
发表于 2014-3-6 13:13:28 | 显示全部楼层
  1. 我还是给答案：(command "line" '(0 0) "")
回复 支持 反对

使用道具 举报

edata
发表于 2014-3-6 13:45:18 | 显示全部楼层
所谓尺寸，应该是指标注尺寸对象，可以将标注样式刷成一样，猜测。
  1. (defun c:ddbrush(/ sss ee leng n ss standard ok) ;本程序是类似于R14应用程序中经常用的格式刷的功能
  2. (setq sss (entsel "请输入要刷子原形") )
  3. (setq mother (entget (car sss)))
  4. (setq moname (cdr (assoc 0 mother)))
  5. (setq standard (list -3 '("ACAD" (1000 . "DSTYLE") (1002 . "{") (1002 . "}"))))

  7. (setq id (load_dialog (findfile "ddbrush.dcl")))
  8. (if (not (new_dialog "brush" id))
  9.         (exit)
  10. )


  13. (if (= jzxz 1) (init))
  14. (initl)
  15. ;--------------------
  16. (setq mc (assoc 8 mother) mx  (assoc 6 mother) my  (assoc 62 mother))
  17. (setq myy (cadr (assoc (cdr mc) nn1)) mxx (caddr (assoc (cdr mc) nn1)))
  18. ;--------------------------

  20. (setq ok 0)
  21. (action_tile "accept" "(do_set)(done_dialog 1)")
  22. (start_dialog)
  23. (unload_dialog id)
  24. (if (= ok 0) (exit))        ;如果取消就退出


  27. (prompt "请选择要修改的实体")
  28. (if (= qx 1) (setq ss (ssget "x")) (setq ss (ssget ) ))
  29. (print "请您耐心等待，程序正在处理......")
  30. (setq leng (sslength ss) n 0 str "")
  31. (repeat leng
  32.         (setq ee (ssname ss n))
  33.         (setq aa (entget ee))
  34.         (setq name (cdr (assoc 0 aa)))

  36. (setq yesno f)
  37. (if (and (= tt1 0) (= tt2 0) (= tt3 0) (= tt4 0)) (setq yesno t)
  38.         (progn
  39.         (setq tc (assoc 8 aa) tx  (assoc 6 aa) ty  (assoc 62 aa))
  40.         (setq tyy (cadr (assoc (cdr tc) nn1)) txx (caddr (assoc (cdr tc) nn1)))
  41.        

  43.         (setq ttt1 f)
  44.         (if (= tt1 0) (setq ttt1 t))
  45.         (if (and (not (= tt1 0)) (= (car (nth (1- tt1) nn1)) (cdr tc)))        (setq ttt1 t) );;处理层
  46.        

  48.        
  49.         (setq ttt2 f)
  50.         (if (= tt2 0) (setq ttt2 t)                                                        ;处理线型
  51.                 (if  (NULL tx)  
  52.                         ( if (= (nth (1- tt2) nn2) txx) (setq ttt2 t))
  53.                         (if (= (nth (1- tt2) nn2) (cdr tx)) (setq ttt2 t))
  54.                 )
  55.         )


  58.         (setq ttt3 f)                                                                        ;处理颜色
  59.         (if (= tt3 0) (setq ttt3 t)
  60.                 (if (NULL ty)
  61.                         ( if (= tt3  tyy) (setq ttt3 t))
  62.                         (if (= tt3 (cdr ty))  (setq ttt3  t))
  63.                 )
  64.         )

  66.        
  67.        
  68.         (setq ttt4 f)                                                                        ;处理实体
  69.         (if (= tt4 0) (setq ttt4 t)
  70.                 (if (= (nth (1- tt4) nn4) name) (setq ttt4 t))
  71.         )



  75.         (setq yesno (and ttt1 ttt2 ttt3 ttt4))
  76.        
  77.         );endprogn
  78. );endif


  81. (if (= yesno t)
  82.         (progn
  83. ( if (and (or (= moname "DIMEMSION") (= moname "CIRCLE") (= moname "ARC") (= moname "INSERT") (= moname "LINE") (= moname "PLINE")  (= moname "LEADER"))
  84.           (or (= name "DIMEMSION") (= name "INSERT") (= name "LINE")  (= name "CIRCLE") (= name "ARC") (= name "PLINE")  (= name "LEADER")))
  85.         (progn
  86.         (if (= xx 1) (myreplace 6))                                                        ;线型
  87.         (if (= xxbl 1) (myreplace 48))                                                        ;线型比例
  88.         );ENDPROGN
  89. )        ;ENDIF
  90.        


  93. (if (and (or (= name "TEXT") (= name "MTEXT") (= name "ATTDEF")) (or (= moname "TEXT") (= moname "MTEXT") (= moname "ATTDEF")))
  94.         (progn
  95.         (if (= wzlx 1) (myreplace 7))                                                          ;自设系统变量，如果sss不为空，一切字体类型都要更换
  96.        
  97.         (if (= zxbl 1) (if  (or (= moname "MTEXT") (= name "MTEXT")) ()        (myreplace 41)));字宽比
  98.         (if (= zg 1) (myreplace 40))                                                        ;字高
  99.        
  100.         (if (= ztjd 1) (myreplace 50))                                                        ;逆时针弧度值
  101.         (if (= ztjd 1) (myreplace 51))                                                        ;斜体斜角弧度值
  102.         );;endprogn
  103. );;endif       

  105. (if (and (or (= name "TEXT") (= name "MTEXT") (= name "DIMENSION")) (or (= moname "TEXT") (= moname "MTEXT") (= moname "DIMENSION")))
  106.         (if (= wznr 1) (myreplace 1))                                                        ;文字内容
  107. )

  109. ;;;以下两项为专属修改
  110. (if (and (= moname "DIMENSION") (= "DIMENSION" name))
  111.         (if (= cc 1)
  112.                 (progn
  113.                 (modim)
  114.                 (myreplace 3)                                                                ;改变尺寸的标注风格
  115.                 )                                                                         ;改变尺寸
  116.         )
  117. )       

  119. (if (and (= moname "SOLID") (= name "SOLID") (= jt 1)) (mysol))                                ;改变箭头的大小
  120.        
  121. (if (and (or (= moname "CIRCLE") (= moname "ARC")) (or (= name "CIRCLE") (= name "ARC")) (= bj 1)) (myreplace 40))  ;半径

  123. ;;;以下两项为基本属性修改
  124.         (if (= c 1) (myreplace 8))                ;层
  125.         (if (= yc 1) (myreplace 62))                ;颜色
  126.         );;;;endprogn
  127. );;;;;endif


  130.    
  131. (setq n (1+ n))
  132. )        ;endrep

  134. (setq ss nil)
  135. (princ "\n请尊重原作者的辛勤劳动,同时，如果您愿意请为非洲贫困儿童献一份爱心！\n您在使用本程序时如有问题，请与huihl@netease.com联系！\n")
  136. (command "line" '(0 0) "")                ;此语句是为了回退(undo)的需要而编写，即一次只能回退一条操作。


  139. )        ;endfun

  141. (defun modim( / exmo exmo3 exch)

  143. (setq exmo (entget (car sss) '("ACAD")))
  144. (setq exmo3 (assoc -3 exmo))
  145. (setq exch (entget ee '("ACAD")))
  146. (setq exch3 (assoc -3 exch))
  147. (princ "\nsecond\n\n")
  148. (princ exch)
  149. (princ "\n\n first\n")
  150. (princ exmo3)
  151.   ;;判断标注对象的样式是否是替换样式
  152.   (cond
  153.     ((and exmo3 exch3) (setq exch (subst exmo3 (assoc -3 exch) exch)))
  154.     ((and exmo3 (not exch3))(setq exch (append exch (list  exmo3))))
  155.     ((and (not exmo3) exch3) (setq  exch (subst standard (assoc -3 exch) exch)))
  156.     )
  157. ;;;(if (not (or (NULL (assoc -3 exch)) (NULL exmo3))) (setq exch (subst exmo3 (assoc -3 exch) exch)))
  158. ;;;(if (NULL (assoc -3 exch))  (setq exch (append exch (list  exmo3))))
  159. ;;;(if (NULL exmo3) (setq  exch (subst standard (assoc -3 exch) exch)))


  162. (princ "\n\nstart newsecond\n")
  163. (princ exch)
  164. (princ "\n\nend\n")
  165. (entmod exch)
  166. )


  169. (defun myreplace(attrib / variey1 variey2 variety xxxx yyyy)

  171. (if (NULL variey1) (setq variey1  (assoc attrib aa)))
  172. (setq variey2 (cdr (assoc attrib mother)))
  173. (if (NULL variey2) (setq variey2  (assoc attrib mother)))


  176. (if (and (not (null variey1)) (not (null variey2)))           
  177.                         (progn (setq aa
  178.                               (subst (cons attrib variey2) (assoc                         attrib aa) aa)) (entmod aa))                )                ;endif母有子有，即母子属性不随层
  179.        

  181.                
  182. (if (and  (null variey1) (not (null variey2)) ) (setq aa (append aa                         (list  (assoc attrib mother))))
  183. )  ;endif母有子没有，即母属性不随层，但子属性随层

  185. ;以下，母没有子有，即母属性随层，但子属性不随层,分三种情况。。。。。(不知何故cond总是有问题，故用三个if的拙法完

  187. (if (= scjd 1) (setq xxxx mxx yyyy myy) (setq xxxx "BYLAYER" yyyy 256))  ;用于色层绝对

  189. (if (and (not (null variey1)) (null variey2) (= attrib 6)) (setq aa   (subst (cons attrib xxxx) (assoc attrib aa) aa)) )                ;线型
  190. 成
  191. (if  (and (not (null variey1)) (null variey2) (= attrib 62)) (setq aa   (subst (cons attrib yyyy) (assoc attrib aa) aa)))                ;颜色,注：随层为256;随块为0


  194. ;;以下是母子都没有的情况
  195. (if (and (null variey1) (null variey2) (= attrib 6))  (setq aa (append aa (list  (cons attrib xxxx))))        )
  196. (if (and (null variey1) (null variey2) (= attrib 62))  (setq aa (append aa (list  (cons attrib yyyy))))        )



  200. (if (and (not (null variey1)) (null variey2)  (= attrib 48 )) (progn (setq aa   (subst (cons attrib 1) (assoc attrib aa) aa)) (princ "ok") (princ aa)))                ;线型比例
  201. (entmod aa)
  202. )  ;endsubfun


  205. (defun mysol(/ ll pt0 pt1)                                                   ;该函数用于修改箭头的大小
  206. (setq ll (distance (cdr (assoc 10 mother)) (cdr (assoc 13 mother))))
  207.                 (setq pt0 (cdr (assoc 10 aa)) pt1 (cdr (assoc 11  aa)) pt3 (cdr (assoc 13  aa)))
  208.                 (setq rate (/ ll (distance pt0 pt3)))
  209.                 (setq pt0 (snpt pt3 pt0 rate) pt1 (snpt pt3 pt1 rate))               
  210.                 (setq aa                
  211.                         (subst (cons 10 pt0) (assoc 10 aa) aa)
  212.                 )   
  213.                 (setq aa                
  214.                         (subst (cons 11 pt1) (assoc 11 aa) aa)
  215.                 )   

  217.         (entmod aa)
  218. )

  220. (defun snpt(p1 p2 rate / sx1 sx2 sx3 sy1 sy2 sy3 )
  221. (setq sx1 (car p1) sy1 (cadr p1) sx2 (car p2) sy2 (cadr p2))
  222. (setq sx3 (+ (* rate (- sx2 sx1)) sx1) )
  223. (setq sy3 (+ (* rate (- sy2 sy1)) sy1) )
  224. (list sx3 sy3 0.0)
  225. )

  227. (defun do_set(/ n)
  228. (setq sf (atoi (get_tile "sf")))
  229. (setq jzxz (atoi (get_tile "jzxz")))

  231. (if (= sf 1) (setq n 1) (setq n 0))

  233. (setq xx (+ (atoi (get_tile "xx")) n))
  234. (setq xxbl (+ (atoi (get_tile "xxbl")) n))
  235. (setq yc (+ (atoi (get_tile "yc")) n))
  236. (setq wzlx (+ (atoi (get_tile "wzlx")) n))
  237. (setq  zg (+ (atoi (get_tile "zg")) n))
  238. (setq zxbl (+ (atoi (get_tile "zxbl")) n))
  239. (setq wznr (+ (atoi (get_tile "wznr")) n))

  241. (setq cc (+ (atoi (get_tile "cc")) n))
  242. (setq c (+ (atoi (get_tile "c")) n))
  243. (setq jt (+ (atoi (get_tile "jt")) n))
  244. (setq ztjd (+ (atoi (get_tile "ztjd")) n))
  245. (setq bj (+ (atoi (get_tile "bj")) n))
  246. (setq scjd (+ (atoi (get_tile "scjd")) n))

  248. (setq tt1 (atoi (get_tile "tt1")))
  249. (setq tt2 (atoi (get_tile "tt2")))
  250. (setq tt3 (atoi (get_tile "tt3")))
  251. (setq tt4 (atoi (get_tile "tt4")))

  253. (setq qx (atoi (get_tile "qx")))
  254. (setq ok 1)

  256. )

  258. (defun init()

  260. (set_tile "jzxz" (itoa jzxz))
  261. (if (= sf 1) (setq n 1) (setq n 0))
  262. (set_tile "sf" (itoa sf))
  263. (set_tile "xx" (itoa (- xx n)))
  264. (set_tile "xxbl" (itoa (- xxbl n)))
  265. (set_tile "yc" (itoa (- yc n)))
  266. (set_tile "wzlx" (itoa (- wzlx n)))
  267. (set_tile "zg" (itoa (- zg n)))
  268. (set_tile "zxbl" (itoa (- zxbl n)))
  269. (set_tile "wznr" (itoa (- wznr n)))

  271. (set_tile "cc" (itoa (- cc n)))
  272. (set_tile "c" (itoa (- c n)))
  273. (set_tile "jt" (itoa (- jt n)))
  274. (set_tile "ztjd" (itoa (- ztjd n)))
  275. (set_tile "bj" (itoa (- bj n)))
  276. (set_tile "scjd" (itoa (- scjd n)))

  278. (set_tile "qx" (itoa qx))
  279. )

  281. (defun initl()
  282. (setq nn1 '() nn2 '() nn3 '() nn4 '("LINE" "PLINE" "CIRCLE" "ARC" "TEXT" "MTEXT" "ATTDEF" "DIMENSION" "INSERT" "SOLID") n 0)
  283. (start_list "tt1" 3)
  284. (add_list "过滤层(不过滤)")
  285. (setq blk (tblnext "LAYER" 1))

  287. (while (not (NULL blk))
  288. (setq n (1+ n))
  289. (setq tname (cdr (nth 1 blk)))
  290. (setq nn1 (append nn1 (list (list  tname (cdr (nth 3 blk)) (cdr (nth 4 blk))))))
  291. (add_list tname)
  292. (setq blk (tblnext "LAYER" NIL))
  293. )
  294. (end_list)


  297. (start_list "tt2" 3)
  298. (add_list "过滤线型(不过滤)")
  299. (setq blk (tblnext "LTYPE" 1))
  300. (while (not (NULL blk))
  301. (setq tname (cdr (nth 1 blk)))
  302. (setq nn2 (append nn2 (list  tname)))
  303. (add_list tname)
  304. (setq blk (tblnext "LTYPE" NIL))

  306. )
  307. (end_list)

  309. (start_list "tt3" 3)
  310. (add_list "过滤颜色(不过滤)")
  311. (setq n 0)
  312. (repeat 255
  313. (setq n (1+ n))
  314. (add_list (itoa n))
  315. )
  316. (end_list)

  318. (start_list "tt4" 3)
  319. (add_list "过滤实体(不过滤)")
  320. (setq n 0)
  321. (setq len (length nn4))
  322. (repeat len

  324. (add_list (nth n nn4))
  325. (setq n (1+ n))
  326. )
  327. (end_list)

  329. )

评分

参与人数 2明经币 +2 收起 理由
lucas_3333 + 1 E大，再帮忙修复！代表论坛朋友们感谢你了
liuhaixin88 + 1 乐于助人！赞!

查看全部评分

回复 支持 反对

使用道具 举报

lucas_3333
 楼主| 发表于 2014-3-6 21:43:57 | 显示全部楼层
本帖最后由 lucas_3333 于 2014-3-6 21:47 编辑
edata 发表于 2014-3-6 13:45
所谓尺寸，应该是指标注尺寸对象，可以将标注样式刷成一样，猜测。

E大，谢谢你的修改，我还发现几个问题，如下：
1.线型与线型比例，不能将LINE的线型与线型比例刷到多段线PL上，PL线的同样不能刷到L线上，但是颜色可以
2.字型比例，只能在单行文字之间刷，多行文字之间不行，单行文字刷到多行文字不行，多行文字刷到单行文字不行，但是文字内容可以相互刷。
3.“箭头散”与“色，层绝对” 不知道有何用？没试出效果
3.下方的 “反向选择”好像也没有什么作用。

请E大再帮忙审查一下
回复 支持 反对

使用道具 举报

lucas_3333
 楼主| 发表于 2014-3-8 19:03:28 | 显示全部楼层
lucas_3333 发表于 2014-3-6 21:43
E大，谢谢你的修改，我还发现几个问题，如下：
1.线型与线型比例，不能将LINE的线型与线型比例刷到多段线 ...

请E大帮忙看一看
回复 支持 反对

使用道具 举报

lucas_3333
 楼主| 发表于 2014-3-10 21:25:35 | 显示全部楼层
没人解答？请问“箭头散”与“色，层绝对” 是怎么回事？
回复 支持 反对

使用道具 举报

lucas_3333
 楼主| 发表于 2014-3-15 13:55:42 | 显示全部楼层
改不改没关系，请高手说说 “箭头散”与“色，层绝对” 是怎么回事？
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-11-18 08:11 , Processed in 0.217985 second(s), 35 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表