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

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › [求助]请高手帮忙,编个小程序
返回列表 发新帖
查看: 1768|回复: 9

[求助]请高手帮忙,编个小程序

[复制链接]
y551234
发表于 2006-3-29 17:56 | 显示全部楼层 |阅读模式

我想保留"-bhatch"命令的特性和选择功能，绘制一个填充图案，并将其加入到另一个特定图层，最后返回一开始的图层。

我搞了半天也搞不出来
;|(defun C:YJ_Tiancong ()
  (initget "s  ")
  (setq p1 (getpoint "\n指定内部点或选择(S):"))
  (cond ((= s0 "s")((princ "\n指 择(S):" )))
 ((= s0 "") nil)
        (t (cond (
  (command "-layer" "N" "COLUFILL" "c" "9" "COLUFILL" "")
  (command "-BHATCH" "P" "SOLID" p1 "")
  (command "chprop" (entlast) "" "layer" "COLUFILL" ""))))
  )
  (princ)
)|;
;|

(defun C:YJ_Tiancong ()
  (setq p1 (getpoint "\n指定内部点或选择(S):")) 
  (command "-layer" "N" "COLUFILL" "c" "9" "COLUFILL" "")
  (command "-BHATCH" "P" "SOLID" p1 "") 
  (command "chprop" (entlast) "" "layer" "COLUFILL" "")
  (princ)
)
  (setq ss (ssget))
  (command "-layer" "N" "COLUFILL" "c" "9" "COLUFILL" "")
  (command "-BHATCH" "P" "SOLID" "s" ss "" "") 
  (command "chprop" (entlast) "" "layer" "COLUFILL" "")
  (princ)
  |;
(defun C:yjxd ()
  (setq ss nil n 0)
  (while (setq ss1 (getpoint "\n指定内部点或选择(S):"))
         (setq ss (cons ss1 ss)
  (setq n (+ n 1))
)
  (command "-BHATCH" "P" "SOLID" ss ""))
(while (> n 0)
  ((nth n ss)
    (setq n (- n 1)

失败!

回复

使用道具 举报

xyp1964
发表于 2006-3-29 18:23 | 显示全部楼层
  2. (defun C:test ()
  3.   (setq ol (getvar "clayer"))
  4.   (command "-layer" "m" "COLUFILL" "c" "4" "COLUFILL" "")
  5.   (while (setq pt (getpoint "\n指定内部点: "))
  6.     (command "-BHATCH" "P" "SOLID" pt "")
  7.   )
  8.   (setvar "clayer" ol)
  9.   (princ)
  10. )
回复 支持 反对

使用道具 举报

ljpnb
发表于 2006-3-29 18:32 | 显示全部楼层
  3. (defun C:yjxd ()
  4.   (if (= (tblobjname "layer" "COLUFILL") nil)
  5.     (command "-layer" "N" "COLUFILL" "c" "9" "COLUFILL" "")
  6.   )
  7.   (command "-bhatch" "p" "SOLID" (getpoint "\n指定内部点"))
  8.   (while (setq point (getpoint "\n指定内部点"))
  9.     (command point)
  10.   )
  11.   (command "")
  12.   (command "chprop" (entlast) "" "layer" "COLUFILL" "")
  13.   (princ)
  14. )
回复 支持 反对

使用道具 举报

artken
发表于 2008-6-22 13:07 | 显示全部楼层

楼上两位大侠的代码只能点选内部，不能按S就是交叉窗选对象啊。

有办法实现吗？

回复 支持 反对

使用道具 举报

byghbcx
发表于 2008-6-23 09:24 | 显示全部楼层
楼主是否要这种效果
  2. (defun C:yjxd ( / point ss n m en ent )
  3.    (if (= (tblobjname "layer" "COLUFILL") nil)
  4.      (command "-layer" "N" "COLUFILL" "c" "9" "COLUFILL" "")
  5.    )
  6.    (initget "s")
  7.    (while (setq point (getpoint "\n指定内部点(选择物体[s])"))
  8.      (cond
  9.      ((or (= point "s") (= point "S"))
  10.          (progn
  11.     (SETQ SS (SSGET '((0 . "*POLYLINE,circle,REGION"))))
  12.     (setq n 0 m (SSlength ss))
  13.       (repeat m
  14.         (setq en (ssname ss n))
  15.         (setq ent (entget en))
  16.         (IF (and (OR (= (CDR (ASSOC 0 ent)) "POLYLINE") (= (CDR (ASSOC 0 ent)) "LWPOLYLINE"))
  17.                         (= (cdr (assoc 70  ent)) 0))
  18.                        (command "change" en "" "p" "la" "0" "")
  19.           (progn
  20.            (command "-bhatch" "p" "SOLID" "s" en "" "")
  21.            (command "chprop" (entlast) "" "layer" "COLUFILL" "")
  22.           )
  23.                )
  24.         (setq n (+ 1 n))
  25.       )
  26.     )
  27.       )
  28.        ( (= (type point) 'list)
  29.   (progn
  30.           (command "-bhatch" "p" "SOLID"  point "")
  31.           (command "chprop" (entlast) "" "layer" "COLUFILL" "")
  32.    )
  33.        )
  34.        (t nil)
  35.    )
  36.      (initget "s")
  37.      )
  38.    (princ)
  39. )
回复 支持 反对

使用道具 举报

artken
发表于 2008-6-23 17:45 | 显示全部楼层
本帖最后由 作者 于 2008-6-23 17:48:05 编辑

非常感谢呀。。不错。

只是能不能再完善一下这个问题：byghbcx这种方式填充完是每个封闭区域相当于一个个单独的填充，我个人很喜欢这种，比如用于节点图，比我想象中完美。但有时候这样又会太碎了，填充完后如果要修改不方便,比如用于立面图或平面图等。

能不能这样：加一个开关（比如HATCHMODE），当这个开关设为“1”时就是5楼这种效果。当开关设为"2"时，填充完就是执行一次命令虽然选择的封闭区域有很多，但是一个整体的填充（就像系统内置的HATCH一样）。之所以说要加开关，是因为有很多的填充图案要做成这样“自动化处理”的，根据不同的填充图案可能要的这个效果不同。我又不懂怎么改。这样就我可以简单的改改这个开关(如：setq hatchmode 1 等)和各种填充图案的名称、比例、角度就可以行了。不会编程没办法啊。。。。不知我表达清楚了没有

能再帮帮吗？

回复 支持 反对

使用道具 举报

byghbcx
发表于 2008-6-23 18:28 | 显示全部楼层
  2. (defun C:yjxd ( / point ss n m en ent hatchmode)
  3.   (setvar "cmdecho" 0)
  4.   (if (= (tblobjname "layer" "COLUFILL") nil)
  5.     (command "-layer" "N" "COLUFILL" "c" "9" "COLUFILL" "")
  6.   )
  7.   (setq hatchmode (getstring "\n请输入填充类型(整体[Z]/分散[F]):"))
  8.   (if (not hatchmode)
  9.     (setq hatchmode "F")
  10.   )
  11.   (initget "s")
  12.   (while (setq point (getpoint "\n指定内部点(选择物体[s])"))
  13.     (cond
  14.       ((or (= point "s") (= point "S"))
  15.        (progn
  16.   (SETQ SS (SSGET '((0 . "*POLYLINE,circle,REGION"))))
  17.   (setq n 0
  18.         m (SSlength ss)
  19.   )
  20.   (if (= (strcase hatchmode) "Z")
  21.     (command "-bhatch" "p" "SOLID" "s")
  22.   )
  23.   (repeat m
  24.     (setq en (ssname ss n))
  25.     (setq ent (entget en))
  26.     (IF (and (OR (= (CDR (ASSOC 0 ent)) "POLYLINE")
  27.    (= (CDR (ASSOC 0 ent)) "LWPOLYLINE")
  28.       )
  29.       (= (cdr (assoc 70 ent)) 0)
  30.         )
  31.       (command "change" en "" "p" "la" "0" "")
  32.       (if (= (strcase hatchmode) "F")
  33.         (progn
  34.    (command "-bhatch" "p" "SOLID" "s" en "" "")
  35.    (command "chprop" (entlast) "" "layer" "COLUFILL" "")
  36.         )
  37.         (command en)
  38.       )
  39.     )
  40.     (setq n (+ 1 n))
  41.   )
  42.   (if (= (strcase hatchmode) "Z")
  43.     (progn (command "" "")
  44.     (command "chprop" (entlast) "" "layer" "COLUFILL" "")
  45.     )
  46.   )
  47.        )
  48.       )
  49.       ((= (type point) 'list)
  50.        (progn
  51.   (command "-bhatch" "p" "SOLID" point "")
  52.   (command "chprop" (entlast) "" "layer" "COLUFILL" "")
  53.        )
  54.       )
  55.       (t nil)
  56.     )
  57.     (initget "s")
  58.   )
  59.   (setvar "cmdecho" 1)
  60.   (princ)
  61. )
回复 支持 反对

使用道具 举报

artken
发表于 2008-6-23 18:51 | 显示全部楼层

大侠，还有点问题：

如果是点选内部分的话，整体填充就失效，也就是说填充的还是散的

如果是按要S按选择对象的话，整体填充就是整体的。

还是那句话，感谢啊。。。

回复 支持 反对

使用道具 举报

byghbcx
发表于 2008-6-23 20:42 | 显示全部楼层
点选后,随即填充,就是分散的
回复 支持 反对

使用道具 举报

龙龙仔
发表于 2008-6-26 08:13 | 显示全部楼层
樓主的功能Autolayer程序就可解決
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-4-28 16:24 , Processed in 0.380926 second(s), 25 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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