明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: mccad

[公告]有关编程申请的规则

    [复制链接]
发表于 2007-5-24 10:26 | 显示全部楼层
哈哈.我觉得我们应该共同交流
发表于 2007-7-2 21:03 | 显示全部楼层

双手赞同!!

发表于 2008-1-15 11:45 | 显示全部楼层

楼主你好,能不能帮我补充一下我的程序,功能是自动画冲头+自动建UCS“0”点+自动坐标标注,我已经完成了画图,请帮忙完善程序,谢谢!用法是输基准点,选X坐标长度,输挂台高度,输冲头长度后自动完成画图和标注,以下是程序

;;指定基点画冲头

(DEFUN c:oi (/ osm point x y px py x1 y1 x2 y2 x3 y3 x4 y4 f1 f2 f3 f4 x5
  y5 x6 y6 w1 w2 ents)
  (setq point (getpoint "\n指定冲头基准点:"))
  (setq ww (getdist "\n请选择对象:"))
  (setq osm (getvar "osmode"))
  (setvar "osmode" 0)
  (setq X (getdist "\n请输入挂台高度:"))
  (setq y (getdist "\n请输入冲头长度:"))
  (setq px (car point))
  (setq py (cadr point))
  (setq x (/ x 1))
  (setq y (/ y -1))
  (setq x1 (+ px 0))
  (setq y1 (- py 39))
  (setq x2 (+ px 1.2))
  (setq y2 (- py 39))
  (setq x3 (+ px 1.2))
  (setq y3 (- py 35))
  (setq x4 (+ px 0))
  (setq y4 (- py 35))
  (setq x5 (+ px 0))
  (setq y5 (- py (- 35 x)))
  (setq x6 (+ px ww))
  (setq y6 (- py (- 35 x)))
  (setq x7 (+ px ww))
  (setq y7 (+ py -15 y))
  (setq x8 (+ px 0))
  (setq y8 (+ py -15 y))


  (setq f1 (list x1 y1))
  (setq f2 (list x2 y2))
  (setq f3 (list x3 y3))
  (setq f4 (list x4 y4))
  (setq f5 (list x5 y5))
  (setq f6 (list x6 y6))
  (setq f7 (list x7 y7))
  (setq f8 (list x8 y8))
  (command "_PLINE" f1 f2 f3 f4 f5 f6 f7 f8"c")
  (setvar "osmode" osm)
 (COMMAND "UCS" "O"))

  ***(prompt "\n <<01.10>>")***
  (prin1)

  (princ)
)

发表于 2008-1-20 18:05 | 显示全部楼层
大家好请帮我写一个在各个布局中自动切换的LISP
发表于 2008-1-20 18:10 | 显示全部楼层
有人可以写自动获取实体长,宽.高的高手吗?可以帮我写一个吗?谢谢!
发表于 2008-3-13 23:40 | 显示全部楼层

今天刚注册

发个帖纪念一下!

希望以后大家多帮忙..............

发表于 2008-7-8 08:01 | 显示全部楼层

在论坛上我会尽全力的!

发表于 2008-8-5 21:26 | 显示全部楼层
我同意。
发表于 2008-12-28 18:48 | 显示全部楼层
各位大大,怎样才能发帖啊
发表于 2009-4-12 00:37 | 显示全部楼层
同意。明经上高手如云,我也学到很多。奈何平时太忙,对于写程序还不精。感谢这里很多朋友提供帮助。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 18:28 , Processed in 0.168437 second(s), 17 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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