乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 115|回复： 9

请指点一下 哪错了

[复制链接]
okldp

6

主题

25

帖子

6

银币

初来乍到

Rank: 1

铜币
49
发表于 2004-4-13 18:43:00 | 显示全部楼层 |阅读模式
多谢！请指点一下         哪错了 怎么画不直呀 如图：       
(defun c:hl ()
                                 (setq zh1 (ssadd))
                                 (while (= nil num)
                                                 (setq num (getreal "\n num:"))
                                 )
                                 (setq zh (getpoint (strcat "\npoint1:")))
                                 (setq zh2 (getpoint zh "\npoint2:"))
                                 (setq zh3 (sqrt (+ (expt (- (car zh) (car zh2)) 2.0) (expt (- (cadr zh) (cadr zh2)) 2.0))))
                                 (setq last (entlast))
                                 (command "line" zh         (list (+ (car zh) zh3) (cadr zh)) "" "")
                                 (setq zh5 (cdr (assoc 11 (entget (entlast)))))
                                 (command "line" zh (list (car zh) (+ (cadr zh) num))         "" "")
                                 (setq zh6 (cdr (assoc 11 (entget (entlast)))))
                                 (command "line" zh5 (list (car zh5) (+ (cadr zh5) num)) "" "")
                                 (setq zh7 (cdr (assoc 11 (entget (entlast)))))
                                 (command "line" zh6 zh7 "")
                                 (while (setq last (entnext last))
                                                 (ssadd last zh1)                 
                                 )
                 
)

nfycgfvgjib.jpg

nfycgfvgjib.jpg
回复

使用道具 举报

meflying

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2004-4-13 19:08:00 | 显示全部楼层
你真的能用你的程序画出你上面的图???
回复

使用道具 举报

雅明

6

主题

52

帖子

6

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
76
发表于 2004-4-13 19:18:00 | 显示全部楼层

你为什么不直接说他的程序最大问题在哪呢？
楼主先把 LAST 改成另外的变量名再说！
回复

使用道具 举报

okldp

6

主题

25

帖子

6

银币

初来乍到

Rank: 1

铜币
49
发表于 2004-4-13 19:29:00 | 显示全部楼层
meflying帮忙。多谢！
我得初衷是点两点（如图红色叉）就画出一个长方形，可有时就画成箭头所示得图形了（画斜了），请给指点一下
回复

使用道具 举报

meflying

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2004-4-13 20:17:00 | 显示全部楼层
点两点?用rectang命令就可以了
回复

使用道具 举报

okldp

6

主题

25

帖子

6

银币

初来乍到

Rank: 1

铜币
49
发表于 2004-4-14 20:11:00 | 显示全部楼层
帮帮忙 多谢！
我想把圈住的斜线画直且同长。用上代码点两点后有时能画直，有时画不直（对同一条线来说） 怎么回事，[glow=255,red,2]晕了nn次[/glow]
回复

使用道具 举报

meflying

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2004-4-14 20:24:00 | 显示全部楼层
你先给一个能画出你说的错误的图的程序,,,因为楼顶这个程序我并不能画出你说的图...
回复

使用道具 举报

okldp

6

主题

25

帖子

6

银币

初来乍到

Rank: 1

铜币
49
发表于 2004-4-15 12:48:00 | 显示全部楼层
meflying :谢你！
就是上面那程序，圈的那些线是先乱画出的。右面的矩形是画直的，但箭头指的是画不直的，在num处输的数值是高度。点的两点是长度。就这些了
回复

使用道具 举报

meflying

26

主题

3072

帖子

10

银币

社区元老

Rank: 75Rank: 75Rank: 75

铜币
3177
发表于 2004-4-15 14:08:00 | 显示全部楼层
你的程序是不正确的,注意3楼说的,看回帖时要注意看全一点...
你将捕捉点去掉试试先
回复

使用道具 举报

okldp

6

主题

25

帖子

6

银币

初来乍到

Rank: 1

铜币
49
发表于 2004-4-15 18:31:00 | 显示全部楼层
多谢！我试试看吧。
回复

使用道具 举报

返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-8-16 00:57 , Processed in 4.626016 second(s), 76 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表