[1103]程序绘制此图形的方法?

xyz518mm · 发表于 2005-11-3 07:43:12

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

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

×

[1103]程序绘制此图形的方法?

请问该怎样才可以编写出以下两种图形
(1)由A点到B点一次完成绘出此图形呢?
(2)由A点出发经过自设的B点最后在C点会出此箭头?
希望能提供代码以便大家教学相长
烦请各位高手帮忙解答一下
感激不尽!

WHGF · 发表于 2005-11-3 07:57:29

做一个块吧

xyz518mm · 发表于 2005-11-3 22:10:08

(defun c:tslisp ()

(setq pt1 (getpoint "\nA點: "))
(setq pt2 (getdist pt1 "\nB點: "))

(SETQ
DST1 (getdist pt2)
ANGE0 (/ PI 4)
;45'
ANGE1 (/ PI 2)
;90'
ANGE2 (ANGLE p1 p2)
;180'
DST2 (*(DISTANCE p1 p2) 0.428)
;6/14
DST3 (*(DISTANCE p1 p2) 0.142)
;2/14
DST4 (*(DISTANCE p1 p2) 0.071)
;1/14

p3 (POLAR p1 ANGE2 DST2)
p4 (POLAR p3 ANGE1 DST1)
p5 (POLAR p4 (+ ANGE0 ANGE2) DST3))
p6 (POLAR p5 ANGE1 DST1)
p7 (POLAR p6 ANGE2 DST2)

  (setq m_oldosmode (getvar "osmode"))
  (setvar "osmode" 12451)
  (command "pline" p1 p3 p4 p5 p6 p7 )
  (command)
  (setvar "osmode" m_oldosmode)
(prin1)

)

请问我这样写为何还是画不出附图的样子
请各位高手帮忙修改一下
谢谢

xyz518mm · 发表于 2005-12-10 09:23:27

如果要再加上图形比例该怎样叙述呢
请各位高手帮忙修改一下
谢谢

xyp1964 · 发表于 2005-12-10 09:35:13

发个DWG图上来。

xyz518mm · 发表于 2005-12-12 12:19:51

小弟所说的比例问题,
是说如果使用图块方法绘图该怎样处理.遇到的问题有...

01.使用图块命令插入.那该怎样下达命令呢?
是否为这样的下达式:
(command "-INSERT" "C:/black/DIMC.dwg" nil)

02.若有要建立一个标注型式该怎样判断是否存在
以下是自己想的,但好像不行...
(IF (tblsearch "DIMSTYLE" "DIMC")
(setvar "DIMSTYLE" DIMC)
(command "-dimstyle" "s" "DIMC" )
)

03.在图形一中,那填入图块命令,牵扯到图形的x,y比例.
该怎样处理呢?
程序目标为只要由点A到点B订出长度及宽度,就可以放上此图块图形,
且也附带上尺寸标注.

烦请各位高手帮忙解答一下
谢谢~

附上图档及说明图片.

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

[1103]程序绘制此图形的方法?

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

相关帖子