gc666666
发表于 2019-12-19 11:24:20
sharetow 发表于 2019-12-19 11:06
上dwg,你确定01不是普通块?
这个是文字。。。
sharetow
发表于 2019-12-19 11:30:17
gc666666 发表于 2019-12-19 11:24
这个是文字。。。
文字的确实有个Bug,1楼已修改
liuxiooang
发表于 2019-12-19 12:16:09
可惜我刚注册 下载不了这个神器。
sharetow
发表于 2019-12-19 12:57:54
liuxiooang 发表于 2019-12-19 12:16
可惜我刚注册 下载不了这个神器。
权限已经改了
再见熊猫衣服
发表于 2019-12-19 12:59:36
gc666666 发表于 2019-12-19 11:02
在这。。。。。。。。。
你这样,有意思吗?自己指定阵列基点,直接用AR阵列,不就好了?
gc666666
发表于 2019-12-19 14:45:15
再见熊猫衣服 发表于 2019-12-19 12:59
你这样,有意思吗?自己指定阵列基点,直接用AR阵列,不就好了?
这位同学,你行你上啊。有劲没地方使!
1028695446
发表于 2019-12-20 09:54:11
sharetow 发表于 2019-12-18 19:59
1楼已更新,下载 v1.1版本
报告楼主,依然有bug,,,,
先提供几点建议
1、首先你的这个插件不开放源码,然后命令又占用了最常用的FF键,所以建议你把命令改长一点比如SH_FF,然后再配个简单的lsp文件让用户自己去定义新的快捷键,就不会冲突了
2、递增不递增的,不用集中在一个命令里面,可以多设几个命令,比如SH_FF,SH_FF1,这样可以快速准确的执行命令
3、关闭递增后,如果选择的选择集包含多个图元,其中有一个是字符类的(比如单行文字),那么动态复制出来的东西就只有文字了,其他类型的图元不会动态复制,这个bug需要修正下
4、显示的复制次数的文字,可以与视窗比例管理起来,不然有时候太小了
5、这个版块是源码共享哦,建议放源码,(一个挑事的微笑)
sharetow
发表于 2019-12-20 10:25:16
1028695446 发表于 2019-12-20 09:54
报告楼主,依然有bug,,,,
先提供几点建议
1、首先你的这个插件不开放源码,然后命令又占用了最常用 ...
已修复,可自定义快捷键。 第一次发帖发错版块了:handshake
gc666666
发表于 2019-12-20 15:53:13
sharetow 发表于 2019-12-20 10:25
已修复,可自定义快捷键。 第一次发帖发错版块了
你好,能给看一下这个标记的程序为啥运行不出来吗?
(defun XD::Pnt:Mark (p col / p1 p2 p3 p4)
(grvecs
(list col
(polar p (/ pi 4) (* (getvar "viewsize") 0.05))
(polar p (* pi 1.25) (* (getvar "viewsize") 0.05))
col
(polar p (* pi 0.75) (* (getvar "viewsize") 0.05))
(polar p (* pi -0.25) (* (getvar "viewsize") 0.05))
col
(setq p1 (polar p (* pi 0.75) (* (getvar "viewsize") 0.025)))
(setq p2 (polar p (/ pi 4) (* (getvar "viewsize") 0.025)))
col
p2
(setq p3 (polar p (* pi -0.25) (* (getvar "viewsize") 0.025)))
col
p3
(setq p4 (polar p (* pi 1.25) (* (getvar "viewsize") 0.025)))
col
p4
p1
)
)
t
)
sharetow
发表于 2019-12-20 16:17:29
本帖最后由 sharetow 于 2019-12-20 16:20 编辑
gc666666 发表于 2019-12-20 15:53
你好,能给看一下这个标记的程序为啥运行不出来吗?
(defun XD:nt:Mark (p col / p1 p2 p3 p4)
(gr ...
可以运行啊,不过你这函数好像不是标准写法吧:lol
(defun c:tt()
(setq
a (getpoint"\n请选择参照点:")
b 1
)
(XD:nt:Mark a b)
)
(defun XD:nt:Mark (p col / p1 p2 p3 p4)
(grvecs
(list col
(polar p (/ pi 4) (* (getvar "viewsize") 0.05))
(polar p (* pi 1.25) (* (getvar "viewsize") 0.05))
col
(polar p (* pi 0.75) (* (getvar "viewsize") 0.05))
(polar p (* pi -0.25) (* (getvar "viewsize") 0.05))
col
(setq p1 (polar p (* pi 0.75) (* (getvar "viewsize") 0.025)))
(setq p2 (polar p (/ pi 4) (* (getvar "viewsize") 0.025)))
col
p2
(setq p3 (polar p (* pi -0.25) (* (getvar "viewsize") 0.025)))
col
p3
(setq p4 (polar p (* pi 1.25) (* (getvar "viewsize") 0.025)))
col
p4
p1
)
)
t
)
页:
1
2
3
[4]
5
6
7
8
9
10
11
12
13