明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1852|回复: 3

[已解答] 自动画任意角度,比例的填充。代码基本完成,求修改完善!

[复制链接]
发表于 2015-4-11 10:53:51 | 显示全部楼层 |阅读模式
本帖最后由 浪子_无限 于 2015-4-11 10:56 编辑

本人上次想求一个这样的功能,暂时没有好的方法。后来借鉴了论坛中其它帖子的经验,自己修改组合拼凑了一段代码,但是总有点问题。


;;;任意角度绘制矩形,已知方向、边长,然后填充图案
;;;命令名:3p-juxing1
;;;日 期:Zo Roo 于 2012-10-27
(defun C:tt(/ PT1 PT2 PT3 PT4 H ANG ANG2 TEST TMP)
(prompt "BY Zo Roo 武赤公路 浪子_无限 修改 2015-04-11")
    (while (setq PT1 (getpoint "\n第一点:"))
(if (setq PT2 (getpoint PT1 " \n 指定方向:"))
     (progn
   (setq ANG (angle PT1 PT2)
         ANG0 (angle PT1 PT2)
         ANG (+ ANG (* 0.5 pi))
        
)
   (princ " \n 指定矩形所在的方向:")
;;;;;;;
(setq PT3 (getpoint " \n 指定矩形所在的方向:"))
(setq pt01 pt1)

;;计算出虚拟点位
(setq PT4 (polar PT3 ANG 100)
      PT4 (inters PT1 PT2 PT3 PT4 NIL)
       )
;;;;;;
(setq H  (distance PT4 PT3)
      ANG2 (angle PT3 PT4)
       )      
;;
(setq dist0 (distance PT1 PT2)
      PT5 (getpoint PT2 "填充厚度")
      dist2 (distance PT2 PT5)

      );修改部分-矩形宽
(setq PT02 (polar PT01 ANG0 dist0))
(setq PT03 (polar PT02 (- ANG2  pi) dist2));修改部分-对角点
(setq PT04 (polar PT01 (- ANG2  pi) dist2));修改部分
(command "_.pline"   "non"
       PT01   "non"   PT02
       "non"   PT03   "non"
       PT04   "c"
(setq e (entlast)
ANG (* ang (/ 180 pi))
)
;(command "hatch" "o" "s" pt1 "n" "p" "bwm" dist2 ang e "")   ;为何选用此句实现填充会出错?
(command "hatch" "o" "d" "c" "n" "p" "bwm" dist2 ang e "")    ;为何此句中填充原点设置不起作用?而且必须响应一次键盘或鼠标动作,图案才出现?
      )
(prompt "绘制完毕!!")  ;整体命令是连续执行的,怎样改成只执行一次?
     
     )
)
    )

    (princ)
) ;_ 结束defun

哪位高手帮我看下,应该修改什么地方呢?

本帖子中包含更多资源

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

x
发表于 2015-4-11 12:01:03 | 显示全部楼层
(while (setq PT1 (getpoint "\n第一点:"))
把while 去掉,
后面也要去掉一个括号,,这样就只执行一次了,,
 楼主| 发表于 2015-4-11 17:15:09 | 显示全部楼层
琴剑江山_10184 发表于 2015-4-11 12:01
(while (setq PT1 (getpoint "\n第一点:"))
把while 去掉,
后面也要去掉一个括号,,这样就只执行一次了 ...

多谢多谢。
发表于 2018-10-5 16:38:35 | 显示全部楼层
东西不错,楼主也历害
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-11-6 09:32 , Processed in 0.162737 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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