求两端可以缩短指定长度轮流插入块的lsp

xj6019

start4444 发表于 2020-9-17 13:45
你以前不是已经有个贴说是等分问题的，和这个差不多了

上传个简单的实用情况下的用法说明，看一下，有没有可能把两种情况合并起来使用呀，个人感觉整合的功能越复杂了，其实用起来越不得劲吧。
实现现在的要求后，各自的代码处理各自的情况，其实看了这个代码后，我已经在考虑，收到你的代码后，有没有方法，将计算间隔的方法用到之前的代码里面呀，以前的等分代码需要输入分的段数的，咋说呢，其实输入等分段数，大众上实用范围更广，但是自己用的话，怎么快怎么来，而且每个人工作的范围和内容不同，只要适合自己就好嘛。等分的计算方法能也单独做一个子函数吗，比方说之前等分代码输入等分数的代码是dim_df，我可以直接在那个代码上引用一下子函数，直接调用等分代码dim_df为新的可自己计算适当间距的新方式的代码吗。这样运行代码后，选择完第二个块，就可以直接完成等分了。

xj6019

start4444 发表于 2020-9-17 13:45
你以前不是已经有个贴说是等分问题的，和这个差不多了

又想了一下，好像计算方法的函数套用，还要计算两点之间的距离吧，感觉也搞定不了呢，贴上你给我的用着的代码，顺带一起也帮我搞一下吧，今天有点太啰嗦了，抱歉抱歉。实在是没有一次性把所有的问题都表述清楚喽。
以下是在用着的之前的等分代码：
(defun c:VC  (/ ang en1 en2 n pt1 pt2 ptx ss zljl)
(command "_.UNDO" "BE")
(if (= dim_df nil) (setq dim_df 2))
   (princ (strcat "\n輸入等分的量 <" (rtos dim_df 2 0) ">: "))
   (setq aa (getint))
   (if (= aa nil) (setq aa dim_df))
   (setq dim_df aa)
(setq ss (ssget) en1 (ssname ss 0) en2 (ssname ss 1) n aa)   ;;不好選擇後直接執行
(setq pt1 (cdr (assoc 10 (entget en1))) pt2 (cdr (assoc 10 (entget en2))) ang (angle pt1 pt2))
(setq zljl (/ (distance pt1 pt2) n))      
(repeat (1- n) (command "COPY" en1 "" "non" pt1 "non" (setq ptx (polar pt1 ang zljl)))
(setq pt1 ptx en1 (entlast)))  
(command "_.UNDO" "E")     
(princ)
)

xj6019

不好意思，别考虑用S设置的情况了，直接所有的点，全部插入吧，两端有的情况，不整合到这一个代码里，操作上麻烦，不简洁，用另外一个情况处理吧，上面用着的那个等分代码可以调成不输等分数，默认情况下执行最大间隔数的计算公式，如果输入数值的话，按输入的数值等分。现在的代码最好也按这种方式，这样可以随机处理少有的特殊情况.

xj6019

start4444 发表于 2020-9-17 10:52
试试看，应该差不多的

第一个我自己分开子函数没分成功，不过无所谓了，多几段代码的事，不影响，第二个小小的一点点变动，我自己改好了，总得说来，很好，目前没发现大的问题，很棒很棒，又解决了一个纠结的难题。非常感谢！