[求助]：一个建筑索引图符

whfdchst · 发表于 2006-2-6 10:01:01

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

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

×

一个建筑索引图符的LSP，我想把它再简化写，请斑竹和各位高手帮忙修改一下，谢谢！！

雨箭风刀 · 发表于 2006-2-6 11:39:09

不知道为什么不能下载，不如你直接贴出来，看也方便些

whfdchst · 发表于 2006-2-6 14:14:51

可以下载啊，请再试试看，好吗？

drawerworm · 发表于 2007-7-1 22:01:07

可以下载

carrot1983 · 发表于 2007-7-2 14:01:47

贴出来！贴出来！大家一起来！

xyp1964 · 发表于 2007-7-3 00:36:47

[FONT=courier new];;本程序可画出建筑常用索引图标
(defun c:test ()
(cmdla0)
(setq p1 (getpoint "\n第一点: ")
p2 (getpoint p1 "\n第二点: ")
p3 (polar p2 (angle p1 p2) 500)
)
(command "line" p1 p2 "")
(command "line" (polar p3 0 -500) (polar p3 0 500) "")
(command "circle" p3 500)
(setq textw (USTR 1 "上编号" textw NIL)
textv (USTR 1 "下编号" textv NIL)
)
(xyp-Text 5 (polar p3 (* pi 0.5) 250) textw)
(xyp-Text 5 (polar p3 (* pi 0.5) -250) textv)
(cmdla1)
)[/FONT]

hstea · 发表于 2007-7-3 16:48:38

楼上的程序很好用！要是有对话框版本的就更好了!:)

lhj743 · 发表于 2007-7-4 17:12:23

最初由 xyp1964 发布
[B][CODE];;本程序可画出建筑常用索引图标
(defun c:test ()
  (cmdla0)
  (setq p1 (getpoint "\n第一点: ")
p2 (getpoint p1 "\n第二点: ")
p3 (polar p2 (angle p1 p2) 500)
  )
  (com... [/B]

很好用，
简洁！

但是，既然问出图比例，
为什么圆圈、文字一块缩放，
如果输入1：20，
文字比圆圈就太悬殊了！
恳请改进一下噢！
期待斑竹好消息！

xyp1964 · 发表于 2007-7-5 07:58:35

[FONT=courier new];;建筑常用索引图标
(defun c:test ()
(cmdlasc0)
(setq p1 (getpoint "\n第一点: ")
p2 (getpoint p1 "\n第二点: ")
p3 (polar p2 (angle p1 p2) (* 500 sc))
)
(command "line" p1 p2 "")
(command "line"
(polar p3 0 (* -500 sc))
(polar p3 0 (* 500 sc))
""
)
(command "circle" p3 (* 500 sc))
(setq textw (USTR 1 "编号" textw NIL)
textv (USTR 1 "页次" textv NIL)
)
(xyp-Text 5 (polar p3 (* pi 0.5) (* 250 sc)) textw)
(xyp-Text 5 (polar p3 (* pi 0.5) (* -250 sc)) textv)
(cmdla1)
)[/FONT]

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：一个建筑索引图符

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子