查看单个帖子
旧 2009-04-27, 02:44 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 龙大哥,zzxx8888d主贴内容-------------------------------------------------------

龙大哥,zzxx8888d主贴内容-------------------------------------------------------
龙大哥,zzxx
(command "_.pedit" "_m" ss "" "_j" 0 "")
应该还有一个y吧
(command "_.pedit" "_m" ss "" "y" "_j" 0 "")
做二次开发前先打好cad基础
不要尝试用二次开发来弥补你错误的操作
d
没有啦(setvar "peditaccept" 1)设为1就没有啦
d
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
;;;加粗圆并把圆转为多段线
;;引用格式(ko-add-circleweight ( ()) 100)或者(ko-add-circleweight ( () 0) 100)
( ko-add-circleweight (ena weight / rad bas pt1 pt2 lat)
( rad ((assoc 40 ( ena))))
( bas ((assoc 10 ( ena))))
( pt1 ( bas 0 rad))
( pt2 ( bas ( pi 1) rad))
( "._break" ena pt1 pt2)
( "._pedit" ena "y" "c" "")
( lat ())
( "._pedit" lat "w" weight "")
)
( c:kk ( a ss1 ss2 f i s)
( "cmdecho" 0)
( ( s ( "peditaccept"))
( "peditaccept" 1)
)
( ss ( '((0 . "line,*polyline,arc,circle"))))
( i 0)
( ss
( ( ss)
( ( ( ( 0 ( ( ss i)))) "circle")
(ko-add-circleweight ( ss i) 0)
)
( i ( i))
)
)
( s
( "peditaccept" s)
)
( "cmdecho" 1)
()
)
需要解密fas、vlx请联系本人。
d
唉,此类标题的帖子不能回,会把你们惯坏的,破坏了论坛的秩序,直接无视~~~~~~
做二次开发前先打好cad基础
不要尝试用二次开发来弥补你错误的操作
d
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)