乐筑天下

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

用lisp插入块文件，怎样提前看到效果呢？老大 请帮我改一下吧。

[复制链接]
tianliangle

9

主题

39

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
75
发表于 2004-1-14 21:43:00 | 显示全部楼层 |阅读模式
(defun c:aaa ()
(setvar "cmdecho" 0)
  (command "layer" "m" "白色" "c" "7" "" "")
  (setq pt1 (getpoint "插入点:"))
  (command "insert"
           "新块.dwg"
           pt1
           (/ 1)
           ""
           (setq k0 (getpoint pt1 "\n旋转角度:"))
           (while pt1
             (setq pt1 (getpoint ""))
             (command "insert"
                      "新块.dwg.dwg"
                      pt1
                      (/ 1)
                      ""
                      (setq k0 (getpoint pt1 "\n旋转角度:"))
             )
           )
  )
)
回复

使用道具 举报

SWAYWOOD

89

主题

410

帖子

8

银币

中流砥柱

Rank: 25

铜币
766
发表于 2004-1-15 21:58:00 | 显示全部楼层
我也有这种想法，不过想不到什么好办法，只好用幻灯片
回复

使用道具 举报

tianliangle

9

主题

39

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
75
发表于 2004-1-16 21:04:00 | 显示全部楼层
我觉得肯定有办法，只是一时想不到。
回复

使用道具 举报

lgh930

4

主题

7

帖子

2

银币

初来乍到

Rank: 1

铜币
23
发表于 2004-1-16 23:28:00 | 显示全部楼层
用PX，PY，PSCALE PANGLE选项，详见INSERT命令行提示
回复

使用道具 举报

wdb

25

主题

123

帖子

6

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
223
发表于 2004-1-17 15:55:00 | 显示全部楼层
把插入命令里的pt1换成pause
回复

使用道具 举报

tianliangle

9

主题

39

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
75
发表于 2004-1-20 22:38:00 | 显示全部楼层
感谢5楼的Wdb：
     把插入命令里的pt1换成pause行不通啊。我预期的效果是选定插入点后图块显示出来
并随着鼠标的移动旋转，点击鼠标后图块按最后的角度插入。不过你的方法比我又近了一不，
谢谢你了。
回复

使用道具 举报

tianliangle

9

主题

39

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
75
发表于 2004-1-20 22:41:00 | 显示全部楼层
lgh930：
    PX，PY，PSCALE PANGLE选项？哦、我看一下，也许可以解决的。谢谢了。
回复

使用道具 举报

wdb

25

主题

123

帖子

6

银币

后起之秀

Rank: 20Rank: 20Rank: 20Rank: 20

铜币
223
发表于 2004-1-22 00:59:00 | 显示全部楼层
你先运行一下“-insert”命令，记准运行参数的顺序，编程时，如果需要临时确定参数值就用pause代替，角度也是一样。
回复

使用道具 举报

tianliangle

9

主题

39

帖子

4

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
75
发表于 2004-1-24 22:45:00 | 显示全部楼层
再次感谢Wdb：
                                                 我的问题已经解决了，不必再跟贴了。谢谢你的帮助。
回复

使用道具 举报

返回列表 发帖

发表回复

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

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-7-8 09:15 , Processed in 1.554561 second(s), 70 queries .

© 2020-2025 乐筑天下

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