★★请大侠优化剪切好程序★★

adc

fan_zh 发表于 2016-9-22 16:51
活跃下气氛嘛

好吧，如果你确实是女子，算我错了！

看他头像就知道他不是女的了，哪个女的会用别人的照片作为自己的头像

975779964

我也好想下载这个程序啊！可是为啥我不能下载呀 说我用户组不对

xyp1964

2. ;; tt(修剪)
   
3. (defun c:tt ()
   
4.   (setvar "FILLETRAD" 0)
   
5.   (while (and (setq s1 (car (entsel "\n选择直线1: ")))
   
6.               (setq s2 (car (entsel "\n选择直线2: ")))
   
7.               (not (equal s1 s2))
   
8.          )
   
9.     (command "fillet" s1 s2)
   
10.   )
    
11.   (princ)
    
12. )

;; tt(修剪)<br /> (defun c:tt ()<br />   (setvar "FILLETRAD" 0)<br />   (while (and (setq s1 (car (entsel "\n选择直线1: ")))<br />               (setq s2 (car (entsel "\n选择直线2: ")))<br />               (not (equal s1 s2))<br />          )<br />     (command "fillet" s1 s2)<br />   )<br />   (princ)<br /> )

柴月二号

等级低了-------------------------

wkq004

图片做的很漂亮,应该是测绘内业.

tmwall

不错的功能。。。。。。。。。。。

xcmdos

USER2128 发表于 2016-9-22 15:37
从我的程序中修改了一下代码，应该很适合你了。

能给共享一下么，级别放低一点

xcmdos

USER2128 发表于 2016-9-22 15:37
从我的程序中修改了一下代码，应该很适合你了。

谢谢楼主的，能提个建议吗，可否只是多段线呢

USER2128

xcmdos 发表于 2016-10-30 22:12
谢谢楼主的，能提个建议吗，可否只是多段线呢

相当于要延伸PL的边，比单处理LINE要复杂很多，暂时还不能将本功能的程序提出来供你使用。

s1059277510

直接圆角为0，不是更方便