乐筑天下

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

[编程交流] Lisp plot Without pick by win

[复制链接]

10

主题

18

帖子

8

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
50
发表于 2022-7-5 16:40:25 | 显示全部楼层 |阅读模式
大家好。我希望通过选择帧外部参照(adlayout before)而不是拾取2点(按窗口)来打印图形。我试着写,但失败了,我希望每个人都能帮助我。非常感谢你!!。祝您今天过得愉快
;CONG TY CP TU VAN XAY DUNG CONG TRINH 625
;P、 TKCD-CIENCO625
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(提示“\n[cmd:IN]-TDK-P.TKCD-CIENCO625”)
;LIPS IN HANG LOAT-(2016年12月31日)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun c:IN()
(提示“\n[cmd:IN]-APPLY TO LAYOUT BEFORE”)
(setq tl(getreal“\nHap ty le in ban ve 1/:”)
 
;quet chon cac外部参照
(princ“\nQuet chon外部参照:”)
(setq sset(ssget(list)(0。“INSERT”)))
(setq i 0)
(setq lmt(sslength sset))
(虽然(
(setq DOITOUNG(ssname sset i))
(setq laynd(entget DOITOUNG))
(setq p1(cdr(assoc 10 laynd)))
(setq p2(列表(+(car p1)420)(+(cadr p1)297)))
(命令“_plot”“y”“”“”“m”“”“”“w”p1 p2 tl“c”“y”“”“y”“”“n”“n”“n”“y”)
(setq i(+i 1))
)
(普林斯)
回复

使用道具 举报

22

主题

326

帖子

185

银币

后起之秀

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

铜币
243
发表于 2022-7-5 17:41:29 | 显示全部楼层
E còn quát kiế第n个ứcđể lám việc náy
回复

使用道具 举报

发表回复

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

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

GMT+8, 2025-3-13 13:46 , Processed in 0.535120 second(s), 56 queries .

© 2020-2025 乐筑天下

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